$x = "foo";

print "$x / $main::x\n";

{
  my $x = $x;

  print "$x / $main::x\n";

  $x = "bar";

  print "$x / $main::x\n";
}

print "$x / $main::x\n";