my @a = qw(a b c d);
#          0 1 2 3
print "@a\n";
# a b c d
splice @a, 2, 0, qw(ba bb bc);
print "@a\n";
# a b ba bb bc c d
[download]

See what perlfunc has to say about splice.

Good post. If you wanted to get it in the middle of an array more that 4 indexes then you could make a slight adjustment to it to be more versatile.



my @a = (a..g);
print "@a\n";
splice @a, ($#a+1)/2, 0, (1..5);
print "@a\n";
[download]



Tiptoeing up to a Perl hacker.
Dave AKA damian

I keep seeing $#list + 1 in code posted to perlmonks. Remember that this is the same thing as @list in a scalar context.

Henceforth, I shall wage a jihad against the former expression :)

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

splice

Update: Okay, wog. You beat me. :-p And your answer is more informative, too. Shucks.

bbfu
Seasons don't fear The Reaper.
Nor do the wind, the sun, and the rain.
We can be like they are.