for my $i (@array1) { for my $j (@array2) { ... } }