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

		if ( ! $p1ships{$ship} ) {
			next;
		}
		my $shipRef = $p1ships{$ship};
		my $location = ${$shipRef}{loc};
		my @inUseTiles = split(",", $location);
		foreach my $iut ( @inUseTiles ) {
			push(@p1usedTiles, $iut);
		}
	
	}