my @array1=(1,2,3,4,5);
my @array2=(a,b,c,d,e);

foreach my $x(0..$#array1)
     {
       my $switch;
       $switch='Y' if $x==2;
       if( $switch eq  "Y")
          {
          splice @array1, $x, 1, @array2;
          # ist array1 jetzt hier bereits  'verlängert' ?
          # d.h. der nächste Wert von $array[$x] ist 'a' ?
          # oder wird nur eine Kopie erstellt, die dann nach                  
          # abarbeiten der Schleife gültig wird?
         }

      }