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