#!C:/perl/bin@passengerships = ('T', 'O', 'B');print "\n\n@passengerships \n\n"; #print the array valuespush(@passengerships, "QE2"); # add another shipprint "@passengerships \n"; # print the array values again