perl -le '$n=0; $h{"foo"=>$n++}=$n for (0..3); print "$_ => $h{$_}" for (sort keys %h)'
foo0 => 1
foo1 => 2
foo2 => 3
foo3 => 4