#!c:/perl/bin @warships=('H', 'B', 'W'); @passengerships=('T', 'O', 'B'); @ships = (@warships, @passengerships); print "There are $#ships in the \$ships array \n";