for my $x(sort {return $hash{$a} cmp $hash{$b}} keys %hash)
{
   print "$x = $hash{$x}\n";
}