%hash = map { s/^key1$/new_key2/; $_; } %hash;