... map { local $_ = $_; s/^key1$/new_key2/; $_; } ...