$ perl -we '
   local $a = 1;
   @h = sort {$a <=> $b} keys %hash;
   print "@h\n";> %hash = map { $_ , undef } 0 .. 3;
   @h = sort {$a <=> $b} keys %hash;
   print "@h\n";
'
0 1 2 3