my $tmp1 = "";
@Notes = sort { 
	$tmp1 .= $b->{terms}.$a->{terms};
	my $r = $b->{terms} <=> $a->{terms};
	$tmp1 .= "($r) ";
	return $r;
} @Notes;

my $tmp2 = "";
my @Sorted = sort { 
	$tmp2 .= $b->{terms}.$a->{terms};
	my $r = $b->{terms} <=> $a->{terms}; 
	$tmp2 .= "($r) ";
	return $r;
} @Notes;
open(LOG,">/var/www/dump/tmp.txt");
print LOG "$tmp1\n$tmp2\n";
if ($tmp1 ne $tmp2) { print LOG "UNEQUAL" }