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