my $blah=5;
{
my $blah=7;
print $blah;#7
}
print $blah;#5