Select Code to Download

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

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