my $it = new Iterator::Product 
	Iterator::Array->new( ['1  ',' 2 ',] ),
	Iterator::Array->new( ['4  ',' 5 ',] ),
	Iterator::Array->new( ['7  ',' 8 ',] );

while ( ! $it->is_exhausted )
{
	my @x = $it->value;
	print "@x\n";
}