my $saved_var = $var;
ON_SCOPE_EXIT { $var = $saved_var; }
$var = undef;