You can sort by value by changing

foreach my $key (keys(%$results)) {
[download]

in the above code to:

foreach my $key (sort {$results->{$b} <=> $results{$a}} keys %$results
+) {
[download]

If you have a ton of results, this may be inefficient, and may want to use a Schwartzian transform instead. But it sounds like maybe you don't have to worry about that.