#!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;