my $x=42;
print "\$x before block: $x\n";
{
  my $x=$x;
  $x++;
  print "\$x inside block: $x\n";
}
print "\$x after block: $x\n";