my @a = (1,2,3,4,5,6,7,8,9);
my $pos = 3;
my $new_elem = 100;
$" = ", ";
print "Before: (@a)\n";
@a = (@a[0..$pos-1],$new_elem,@a[$pos..$#a]);
print "After: (@a)\n";