print Data::Dumper->Dump([\@Array1],[qw(Array)]);