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