BEGIN { my $x; sub foo { ... $x ... } }