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

##</code><code>##

use Data::Dump;
...
dd @array1;