@AoA = (
  [ $MDA[0][0][0], $MDA[0][0][1], ... , $MDA[0][2][2] ],
  [ $MDA[1][0][0], $MDA[1][0][1], ... , $MDA[1][2][2] ],
  [ $MDA[2][0][0], $MDA[2][0][1], ... , $MDA[2][2][2] ],
);

##</code><code>##

#            my $val = Dive( \@MDA, @indices );
#            push @{$AoA[$level]}, @$val;
            my $val = Dive( $MDA[$level], @indices );
            push @{$AoA[$level]}, $val;

##</code><code>##

NestedLoops(
    [ ( [0..$dimension-1] ) x ($depth-1) ],
    sub {
        my @indices = @_;
        my $val = Dive( \@MDA, @indices );
        push @{ $AoA[$indices[0]] }, $val;
    }
);