use Data::Dumper;
# ...
# build @array
# ...
print Dumper( \@array );