my $saved= *main::val{SCALAR};
    *main::val= do { my $new; \$new };
    ...
    *main::val= $saved;