$code .= map { "s/\b$_\b/$hash{$_}/eg;\n" } keys %hash;
eval $code;