$ perl -Mstrict -wle 'my @lexical = (1..3); for (my $i=0; $i<@lexical; $i++){ local *_ = \$lexical[$i]; $_ = "foo"} print "@lexical"'
foo foo foo