http://qs321.pair.com?node_id=662212

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hello fellow monks, I wanted to ask the following:
Say you have 3 arrays, like
@array1=(1,2,3) , @array2(7,8) and array3=(1,5,23,3);
Is there a way to find all combinations? I mean:
1-7-1, 1-7-5, 1-7-23, 1-7-3, 1-8-1, 1-8-5, 1-8-23, 1-8-3, 2-7-1, 2-7-5, 2-7-23, 2-7-3, 2-8-1, 2-8-5, 2-8-23, 2-8-3, 3-7-1, 3-7-5, 3-7-23, 3-7-3, 3-8-1, 3-8-5, 3-8-23, 3-8-3
I tried using:
for ($i==0;$i<=$array1;$i++) { for ($j==0;$j<=$array2;$j++) { for ($k==0;$k<=$array3;$k++) { print $array1[$i], "\t", $array2[$j], "\t", $ar +ray[$k], "\n"; } } }
but it only prints 1-7-1, 1-7-5, 1-7-23, 1-7-3 Could you give me any hint please?