#!/usr/bin/perl

use strict;
use warnings;

{
    my $var = 1;
    {
        print $var;
        my $var = 2;
        print $var;
    }
    print $var;
}