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