use warnings;
use strict;
{
my $a;
}
$a=1
print $a;