{ my $x; sub f { return $x++ } }