my $i = each_arrayref($array1, $array2); while (my ($x, $c) = $i->()) { print("$x, $c\n"); } [download]
In reply to Re^2: parallel procesing by ikegami in thread parallel procesing by baxy77bax