Select Code to Download

foreach $subsubkey (sort %{$tophash{$value}{$value2}} ) 
           {
               print "$subsubkey";
           }

foreach $array_value ( @$tophash{$value}{$value2} ) {
    print $array_value;
}