$var1 = 100;
$var2 = 200;
{
    # The brackets just created a narrower lexical scope.
    my $var1 = "ABCDE";
    print "Inside the narrow lexical block:  $var1, $var2\n";
    print "The package global \$main::var still contains $main::var\n";
}
# The } bracket just closed the narrow lexical block.
print "Outside the narrow lexical block: $var1, $var2\n";
__OUTPUT__
Inside the narrow lexical block:  ABCDE, 200
The package global $main::var still contains 100
Outside the narrow lexical block:  100, 200