Select Code to Download

sub sortByValue {
  my %hash = @_;
...
foreach $pair (sortByBalue %myHash) {
    print "$pair->[0] - $pair->[1]\n";
}

sub sortByValue {
  my %hash = @_;
...
foreach my $key (sortByValue %myHash) {
  print "$key - $myHash{$key}\n";
}