ah, sorry. I'm tired. That should of course be

foreach my $key (sort { $a <=> $b } keys %results)
{
   print "$key) $results{$key}\n";
}
[download]

my bad.