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