foreach (sort {$a <=> $b} keys %hash) {
        # do something with $hash{$_} ...
}