foreach (sort {$hash{$a} cmp $hash{$b}} (keys %hash)