perl -MO=Concise -e 'for (1..10) { my $y = {1=>2,3=>4}; $y->{$x} }'