local $var;

##</code><code>##

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

##</code><code>##

local $A::variable = $A::variable;