$v= 2; sub f {print $v} {local $v= 5; f;}