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

##</code><code>##

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