perl

OK, нашлось:

=== Cut ===
#!/usr/bin/perl

@array1 = (1,2,3,4,5,6,7,8,9,10,11,12);
@array2 = (1,2,3,4,5,6,7,8);
@sub_array1 = @array1[0..9];
@sub_array2 = @array2[0..9];
print "@sub_array1", "\n";
print "@sub_array2", "\n";
=== Cut ===

еще perldoc -f splice, если тебе надо, например, нарезать массив по три, или еще чего в таком духе.