Untitled

		# For every result from the neural net (this will be one result per keypoint)
		foreach my $result (@$results) {
			#print Dumper($result);			
			# For every result in the training data (one per image)
			foreach my $compare_result (keys %training_data) {
				# Compare each value of the result...
				foreach my $bit (@$result) {
					# ...to each value of the known result
					foreach my $bit2 (@{$training_data{$compare_result}{output}}) {



						my $diff = abs($bit - $bit2);
						print Dumper($diff);
						if (!defined $training_data{$compare_result}{diff}) {
							$training_data{$compare_result}{diff} = 0;
							$training_data{$compare_result}{diff} += $diff;
						}
						else {
							$training_data{$compare_result}{diff} += $diff;
						}													



					}								
				}
			}
		}