my $x = 3; local $x'