# beläßt original so wie es ist
sub cmap (&@) {
  map { local $_ = $_; $_[0]->(); $_ } @_[1..$#_];
}

my @copy = cmap { s/a/b/ } @array;