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