@$ra = @$ra[0..$index-1], $elem, @$ra[$index..@$ra-1];