my @AoA = [];

for (@list) {
    push @AoA, [] if $C == @{ $AoA[-1] };
    push @{ $AoA[-1] }, $_;
}