my $n=3;
{
    my $n=4;
    say($n);
}
say($n);
__END__
4
3