sub checksolved
{
	my ($position) = @_;
	for ($i=0;$i<16;$i++)
	{
		if(@{$position}[$i]!=$solved1[$i]) {
			for ($i=0;$i<16;$i++)
			{
				if(@{$position}[$i]!=$solved2[$i]) {
					for ($i=0;$i<16;$i++)
						{
						if(@{$position}[$i]!=$solved3[$i]) {
							for ($i=0;$i<16;$i++)
							{
								if(@{$position}[$i]!=$solved4[$i]) {
									return "NOT SOLVED";
								}
							}
						}
					}
				}
			}
		}
	}

	return "SOLVED";
}