@a=(1,2,3);
$b= [ 4,5,6 ];
use Data::Dumper;
Data::Dumper->Dump([\@a,$b],['a','b'])