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