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