use Data::Dumper;
print Data::Dumper->Dumper(@array);