>perl -le "@l=qw(a b c);$b=3;do{local @::{@l} = @::{@l};print $b;$b=2;print $b};print $b"
3
2
2