Select Code to Download

my %h = ( ... );
foreach my $k ( sort { lc $a cmp lc $b } keys %h ){   # get keys sorte
+d by lowercase of key
...
foreach my $k ( sort { lc $h{$a} cmp lc $h{$b} } keys %h ){  $ get key
+s sorted by lowercase of value
  ...
}