foreach my $key (keys(%$results)) {

##</code><code>##

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