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