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