$a = 1;
{
  local $a = 2;
  print "$a\n";
}
print "$a\n";