use strict;
use warnings;
use Data::Dump qw/pp dd/;


print "\n---------- Input\n";

sub genNested {
    my $n = shift;
    map{ rand() < 0.5 ? [ int rand(20), genNested( $n-1 ) ] : int rand( 20 ) } 1 ..$n;
}

my @nested = genNested( 3 );

print pp \@nested;



print "\n\n---------- my solution\n";

sub genIterator {
    my $tree = shift;
    my @queue = @{$tree};
    return sub {
        while (  my ($node) = splice @queue,0,1 ) { # shift is buggy
            if ( ref $node eq 'ARRAY' ) {
                unshift @queue, @{$node};
                next;
            } else {
                return $node
            }
        }
        return;
    };
    
}

my $iter = genIterator( \@nested );


while ( my ($next) = $iter->() ) {
    print "$next,\t";
}



print "\n\n---------- BUKs goal\n";

sub cbIterator (&$) {
    my( $code, $tree ) = @_;
    for my $i ( 0 .. $#$tree ) {
        if( ref( $tree->[ $i ] ) eq 'ARRAY' ) {
            &cbIterator( $code, $tree->[ $i ] );
        }
        else {
            local $_ = $tree->[ $i ];
            $code->();
        }
    }
}





cbIterator {
     print "$_,\t";
} \@nested;

##</code><code>##

---------- Input
[
  [934, [993, 105], [167, [213]]],
  [71, [120, [973]], 135],
  [404, [828, [571]], 945],
]

---------- my solution
934,	993,	105,	167,	213,	71,	120,	973,	135,	404,	828,	571,	945,	

---------- BUKs goal
934,	993,	105,	167,	213,	71,	120,	973,	135,	404,	828,	571,	945,