yep! this works like a charm.

perl -we 'use Strict; our $r="foo"; my $f = "boot";{local *r =\$f; $r 
+= "loop"; print "$f\n$r\n...\n"};print print "$f\n$r\n...\n"'

__output__
loop
loop
...
loop
foo
...
[download]

Thanks a lot. I learned something interesting.