chunk( $subarray_length, \@array_to_partition );

sub chunk {
    my ($l, $in) = @_;
    my $arr = 0;

    my $ret;

    do {

        print( "die (Error Domain$/)") , return if $l < 1;  # XXX

        @{ $ret->[$arr] } = @$in[ $arr * $l .. (
                $arr * $l + $l - 1 >= @$in ? $#$in : $arr * $l + $l - 
+1 )
        ];
        ++$arr;
    } until ( $arr * $l > @$in - 1 );

    return $ret;
}
[download]

Be well,
rir