my $i = $j = $k = 0;
for my $i (@array1) {

  for my $j  (@array2) {
  
    for my $k (@array3) {
	
	print  "$array1[k],$array2[j],$array3[i],\n";
	$k++;
}
         $j++;
}
         $k++;
}