#!c:/perl/bin @warships=('H', 'B', 'W'); @passengerships=('T', 'O', 'B'); @ships = (@warships, @passengerships); print "@ships[0] \n"; print "@ships[1] \n"; print "@ships[2] \n"; print "@ships[3] \n"; print "@ships[4] \n"; print "@ships[5] \n";