Help for this page
$a = 2; sub f { print $a; } { local $a = 5; f; }'
$a = 2; sub f { print $a; } for $a (5) { f; }