Help for this page
>perl -E"say 0+\$x; local $x; say 0+\$x;" 4885852 2403948
for $lex (...) { push @f, sub { ... $lex ... }; }