for (my $i = 0; $i <= $#list; $i += $C) {
        push @AoA, [ @list[$i .. $i + $C - 1] ];
    }