#!C:/perl/bin@passengerships = ('T', 'O', 'B');print "@passengerships \n";print scalar(@passengerships);print "\n\n";print $#passengerships;print "\n\n";$arraysize = @passengerships;print $arraysize;