DB<1> ($a,$b)=qw/A B/
 
  DB<2> @n=qw/a b/
  
  DB<3> @save=@::{@n}
 
  DB<4> x @::{@n}
0  *main::a
1  *main::b
  DB<5> x @save
0  *main::a
1  *main::b