my @changed = map {local $_ = $_; ...} @original;