$var = 1;
{
    my $var = 2;
    print $var, "\n";    # prints 2
}
print $var, "\n";        # prints 1