my @data = [ [ 0 ], 1, 2, [ 3, 4, 5 ], 6, [ 7, 8, [ 9, 10 ], [ 11, [ 12 ], 13 ], ], 14 ];

my $it = genIterator( \@data );

use DDP;
p @data;

while (defined( my $x = $it->() )) {
    say $x;
}
__END__
[
    [0] [
        [0] [
            [0] 0
        ],
        [1] 1,
        [2] 2,
        [3] [
            [0] 3,
            [1] 4,
            [2] 5
        ],
        [4] 6,
        [5] [
            [0] 7,
            [1] 8,
            [2] [
                [0] 9,
                [1] 10
            ],
            [3] [
                [0] 11,
                [1] [
                    [0] 12
                ],
                [2] 13
            ]
        ],
        [6] 14
    ]
]
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14