Select Code to Download

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

foreach my $key1 (sort keys %somehash) {
   my $key2 = 'justtest';
...
      print($key1, ':', $somehash{$key1}{$key2}{$key3}, "\n");
   }
}

foreach my $key1 (sort keys %somehash) {
   foreach my $key2 (sort keys %{$somehash{$key1}{justtest}}) {
      print($key1, ':', $somehash{$key1}{justtest}{$key2}, "\n");
   }
}