$\ = "\n";
my $x = 12;
{
  my $x = $x + 1;    # <--- point of interest
  print $x;
}
print $x;