perl Battleships Game