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