my @a = ('foo','baz');
splice(@a,1,0,'bar');
print "@a\n";