sub sortByValue {
  my %hash = @_;
  sort { $hash{$a} cmp $hash{$b} } keys %hash;
}

foreach my $key (sortByValue %myHash) {
  print "$key - $myHash{$key}\n";
}