for my $pos (0..$#array2)
{
  my @l=split(/\t/,$array2[$pos],3);
  splice(@l,2,0,$array1[$pos]);
  $array2[$pos]=join("\t",@l);
}