#!/usr/bin/perl

my $a = 5;
{
	print "$a\n";	
	my $a = 1;
	print "$a\n";
}