Help for this page
perl -e '@foo = map {$_=2; foo()} 1..10; sub foo{print}' 2222222222 ... $ perl -e '@foo = map {my $_=2; foo()} 1..10; sub foo{print}' 12345678910