my @newarray;
while (my @array = splice @oldarray,0,15) {
    push @newarray,\@array;
}