$a = 2; sub f { print $a; } { local $a = 5; f; }'

##</code><code>##

$a = 2; sub f { print $a; } for $a (5) { f; }