Select Code to Download

local @::{@names} = @::{@names}

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

2
3

>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

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

This is perl, v5.10.0 built for MSWin32-x86-multi-thread

...
    g:/Systeme/tools/perl-5.10.0/perl/lib
    g:/Systeme/tools/perl-5.10.0/perl/site/lib
    .