Select Code to Download

@array = map { $_ eq "c" && !$found++ ? ("c","f") : $_ } @array

 sub insert_after_first {
   my $arr_ref = shift;
...

   map { $_ eq $insert_after_me && !$found++ ? ( $insert_after_me, $to
+_insert ) : $_ } @$arr_ref;
 }