{ my $a; sub inc { ++$a } }