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

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

Typos, typos.... foreach my $key ( sort {$results->{$b} <=> $results->{$a}} keys %$results ) {

Note that we access our hash $results->{'some_key'} as $results is a reference to the hash. So too the %$results notation to dereference $results and give us the hash. If you just have a plain hash %results your code will look like:

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

You will need to change the other -> derefereces too if that is the case.

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print