(let* ((v 2) (f (lambda () v))) (fluid-let ((v 5)) (f)))

##</code><code>##

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

##</code><code>##

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