foreach $subsubkey (sort @{$tophash{$value}{$value2}} )