Select Code to Download

foreach my $key1 ( sort keys %hash){
    foreach my $key2 ( sort keys %{$hash{$key1}){
...
        }
   }
}

foreach my $key1 ( sort keys %hash){
    foreach my $key2 ( sort keys %{$hash{$key1}){
...
           my $value = $hash{$key1}{$key2}{$key3};
    }     
}