Mega Code Archive
Push value to array
#!C:/perl/bin
@passengerships = ('T', 'O', 'B');
print "\n\n@passengerships \n\n"; #print the array values
push(@passengerships, "QE2"); # add another ship
print "@passengerships \n"; # print the array values again