Select Code to Download

my $href = {
  env4 => 20140830,
...

print "$_, $href->{$_}\n" for sort { $href->{$b} <=> $href->{$a} } key
+s %$href;

my %hash = ( ..... );
print "$_, $hash{$_}\n" for sort { $hash{$b} <=> $hash{$a} } keys %has
+h;