foreach $key (sort{($a)<=>($b)} keys %hash)