Select Code to Download

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

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