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

##</code><code>##

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