sub PerformCheck
{
my @TableOfValues = ([109.339632149156, 71.2834467120181, 30.1753590325019],
		[19.4394053917863, 56.1546989166037, 99.2312925170068],
		[97.2249937011842, 96.7168052406148, 99.9543965734442],
		[35.6661627614009, 112.246157722348, 33.4111866969010],
		[141.426303854875, 50.0745779793399, 53.4378936759889],
		[71.9997480473671, 17.6830435878055, 73.3968253968254],
		[80.3456790123457, 80.1315192743764, 24.8614260519022]);
					  
	my @ObjValues = @_;
	
	my $CurrValue = 195076;
	my $objType = 0;
	
	for my $i (0..$#TableOfValues) {
		my $diff = ();
		for my $i2 (0..2) {
			$diff += ($ObjValues[$i2] - ${$TableOfValues[$i]}[$i2]) ** 2;
		}
		if ($diff < $CurrValue) {
			$CurrValue = $diff;
			$objType = $i + 1;
		}
	}
	
	return $objType;
}