my @opponentRemaining;
			foreach my $key ( keys %p2ships ) { 
				if ( defined $p2ships{$key} ) 
					{ push(@opponentRemaining, $key) 
				} 
			}