# Get in use tiles for ship hashes
	foreach my $ship ( keys %p1ships ) {

		next unless $p1ships{ $ship };
		push @p1usedTiles, split /,/, $p1ships{ $ship }{ loc };

	}