Select Code to Download

sub insert_array_elem {
   my ($ra, $elem, $index) = @_; # insert $elem before $ra->[$index]
...
     @$ra = @$ra[0..$index-1], $elem, @$ra[$index..@$ra-1];
   }
}

# insert $elem before $index in @array
splice(@array, $index, 0, $elem);