use Data::Dumper;
print Data::Dumper->new([\@x])->Indent(0)->Useqq(1)->Dump, "\n";