To print out the contents of an array, you can use join: print join(', ', @array1), "\n";. However, for more complicated (i.e. nested) data structures, you need to write loops to iterate over the data to be printed. Fortunately, Perl has a module Data::Dumper which handles all of this for you:

use Data::Dumper;
...
print Dumper(\@array1), "\n";
[download]

This is a core module, so it comes as part of your Perl installation. And there are other modules available on which do essentially the same job, but with some differences. My current favourite is Data::Dump, which can be used like this:

use Data::Dump;
...
dd @array1;
[download]

See Data::Dump.

Hope that helps,