>perl -E"say 0+\$x; local $x; say 0+\$x;"
4885852
2403948

##</code><code>##

for $lex (...) {
   push @f, sub { ... $lex ... };
}