("FOO", "foo") do { my $a = *main::m; $a = { FOO => "foo" }; $a; }