Select Code to Download

print "@$_\n" foreach sort {
  $a->[0] <=> $b->[0] or
...
} map {
 [$_,$hash->{$_}]
} keys %$hash;

print "@$_\n" foreach sort {
  $a->[0] <=> $b->[0] or
...
  my $s = $_;
  map { [ $hash->{$s}{$_}, $s, $_] } keys %{$hash->{$s}}
} keys %$hash;