Select Code to Download

my @keys = sort keys %hash; # adapt to your needs here.

for (@keys) {
  print "$_ => $hash{$_}\n";
}

my @keys = map { tr/a-zA-Z/A-Za-z/; $_ } sort map { tr/a-zA-Z/A-Za-z/;
+ $_ } keys %hash;