# hier wird irgendwo @Array befüllt; und dann:
require Data::Dumper;
print Data::Dumper->new( [ \@Array ], [ '*Array' ] )->Useqq(1)->Dump();