arr1 ='@array1'

##</code><code>##

my $array1 = '';
$array1 .= @array1[ $_ .. $_ + 10 ] . "\n" for map $_* 10, 0 .. $#array1 / 10;

...
arr1 = '$array1'