Select Code to Download

@array = do {
  my @array2;
...
  @array2;
};

@array = map { $_, ( $_ eq 'remove' ? "new element" : () ) } @array;

@array = map {    $array[$_], (  ($_+1) % 3 == 0  ?  "new element"  : 
+ ()  )    } 0 .. $#array;