my $var = 'first';

{
    print "$var\n";

    {
        print "$var\n";

        my $var = 'second';

        print "$var\n";
    }

}

print "$var\n";