my $x; sub foo { ...[ use $x ]... }