my @opponentRemaining = grep defined( $p2ships{ $_ } ), keys %p2ships;