foreach $key (sort (keys (%hash)))
{print "$key => $hash{$key}\n";}