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