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