I'm unsure what kind of hash you have here. If you're wanting to get the keys of %tophash in sorted order, try this:

foreach my $value (sort keys %tophash)
{
  print $value;
}
[download]

If, on the other hand $tophash{$subhash} is a reference to a hash, you'll need to do something like this:

foreach my $value (sort keys %{$tophash{$subhash}})
{
 print $value;
}
[download]

Guildenstern
Negaterd character class uber alles!