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

#block of code to operate on %hash;

}

##</code><code>##

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