Select Code to Download

my %HoH = (
    SUB1 => {
...
for my $sub_key (sort {$HoH{$a}{Test1}{value1} <=> $HoH{$b}{Test1}{val
+ue1} }keys %HoH){
   print "$HoH{$sub_key}{Test1}{value1}\n";
}