my $pairs = natatime 2, zip $array1, $array2;
while (my (@vals) = $pairs->()) {
    ...
};