for (pair(zip($array1, $array2))) {
    my ($x, $y) = @$_;
    # It's often descriptive to name the values.

    ...
}