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>;