Help for this page
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);