my $foo= do { local *{'$foo'}; \*{'$foo'}; };