Thanks for your code but I can't get it to work.

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

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.


holli, /regexed monk/