Select Code to Download

$hash = {
  1 => {
...
    key2 => string4
  }
}

foreach my $key (sort { $hash->{'key1'} {$a} cmp $hash->{'key1'} {$b} 
+} keys %$hash) {
  ...
}