for my $pos (0..$#array2)
{
  splice(@{$array2[$pos]},2,0,@{$array1[$pos]});
}