有些时候需要将数组分成长度相同的多个子数组，比如批量查询数据库。

这时，我们可以用splice完成这个功能。代码如下：

#!/usr/bin/env perl
use strict;
use warnings;
my @chunks;
my $size = 10;
my @array = (1..100);
push @chunks,[splice(@array,0,$size)] while @array;
foreach my $ref (@chunks) {
    print join("\t",@$ref)."\n";
}