Forza
Не понятно, чего ты в итоге хочешь добиться, но вот... может поможет:
my @array1 = (1, 4, 2, 3);
my @array2 = (4, 3, 2, 1);
print \'Before: \', join(\', \', @array2), "\\n";
[b]@array2[/b] = map { $array1[$_] != $array2[$_] ? $array1[$_] : $array2[$_] } 0 .. [b]$#array1[/b];
print \'After: \', join(\', \', @array2), "\\n";