for my $i (0..$#array1) {
    for my $j (0..$#array2) {
        # do something
    }
}