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

  insert_after { $idx++ == $index-1; } $elem => @{$ra};
}