my @arr; $arr[78] = "foo"; #### my @a = ('foo','baz'); splice(@a,1,0,'bar'); print "@a\n";