my $flattened = [
[D, C, D, C, D],
[D, C, D, C, E],
[D, C, D, E, B],
[D, C, E, B, C],
etc..
]