DB<1> $a=10;$b=1111
 
  DB<2> @names=qw/a b/
 
  DB<3> local @::{@names}; $b=666;print $b
666
  DB<4> print $a,$b
101111