my $array1 = join "\n", @array1;
...

arr1 = '$array1'
...