Re^2: Using regex in Map function

[strat]

If you need something like the copy - do something more often, you could also create a copy-wrapper for map, let's call it cwmap:

sub cwmap( &@ ) {
  map {
    local $_ = $_; # create copy
    $_[0]->();     # execute code-block
    $_;            # copied element
  } @_[ 1..$#_ ];  # list
} # cwmap

# and then use it like map:
@new = cwmap { s/$_/$_,hi/ } <TEST>;