my $test = 1;
my $test = 2;  # warns
{
    my $test = 3;
    print $test; # prints 3
}
print $test; # prints 2