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