...
foreach $key1 (sort {$a <=> $b} keys %hshFoo) {
...