foreach $key (sort {$a <=> $b} keys %myhash) {
     do stuff;
}