$a = "a";
EnclosingBlock: { my $a = "b"; print $a; };
print $a;

##</code><code>##

$var = 'a';
{
    $tmp = $var;
    $var = 'whatever_I_want';
...
#at end of scope
    $var = $tmp;
}