for (sort {$a <=> $b} keys %foo) {
    print "$_\n";
}