use warnings;
{
  my $x = "xxx";
  # $x get out of scope.
}
# print $x currently $::x witch is undefined currently
print $x;