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