sub checkLocation {

	# Given a set of coordinates, determine if they are already occupied
	my $taken = 0;
	my $coordinates = shift;
	if ( $coordinates !~ /^[0-9]*,[0-9]*$/ && $coordinates !~ /^[0-9]*,[0-9]*,[0-9]*$/ && $coordinates !~ /^[0-9]*,[0-9]*,[0-9]*,[0-9]*,[0-9]*$/ ) {
		print "These coordinates look incorrect, you shouldnt see this error...\n";
		$taken = $taken + 1;
	}

	my @coors = split(/,/, $coordinates);
	foreach my $coor ( @coors ) {
		if ( $p1map{$coor} ne "." ) {
			print "coordinate $coor contains $p1map{$coor}\n";
			$taken = $taken + 1;
		}
	}

	if ( $taken >= 1 ) {
		return 1;
	} else {
		return 0;
	}


}