my $x; BEGIN { $x = 0 }
my $f = sub { $x };
++$x;
print $f->();