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