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