@Notes = sort { $b->{terms} <=> $a->{terms} } @Notes;

##</code><code>##

    foreach my $l (@lines) {
        my $pns = PNSearch->new($MUH, $l->[0]-$cur, $l->[1], $file);
        push @Notes, $pns if ($pns);
        $cur = $l->[0];
    }
    close($MUH);
}
use Data::Dumper;
open DUMP, ">somefile.txt" or die $!;
Dumper \@Notes;
close DUMP;