my $x = 123;
sub f { print("$x\n"); }  # 123
{ my $x = 456; f(); }     # Different var
f();
__END__
123
123