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