Select Code to Download

{
    package Iterator::Product;
...
        $self->[0]->is_exhausted && $self->[1]->is_exhausted 
    }
}

use List::Util qw( reduce );
my $nested_iterator = reduce { new Iterator::Product $a, $b } @sub_ite
+rators;

{
    package Iterator::Array;
...
        $self->{'i'} > $#{ $self->{'ar'} }
    }
}

my $it = new Iterator::Product 
    Iterator::Array->new( ['1  ',' 2 ',] ),
...
    print "@x\n";
}

1   4   7
1   4    8
...
 2   5  7
 2   5   8