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