my $foo = do {local *FOO};