#... for my $pos (0..$#array2) { $array2[$pos]=~s/^(\S+\s+\S+\s+)/$1$array1[$pos] /; } #...