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
...