Select Code to Download

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

print "$_\n" for sort { $hash{$a} <=> $hash{$b} } keys %hash;