while (my $x=iter(0, 1,10)) { while (my $y=iter(1, 1,10)) { print "$x$y" }}