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