My usual assault on the missing '}' problem:

1. Run the original code through pertidy and save the result.
2. Edit the code to add a "}' as the last line of the new code.
3. perltidy again and save the result.
4. Run diff between the two outputs.
5. Resolve/explain the diffs

It takes time,sorry but there is no Magic to sort it out.

For what it's worth, the last time I had to dig out of a missing brace, it was because someone had decided to use '}' as the delimiter in a compound Regex in some code originating for the 5.0.x era (Thank you Red Hat). I was contracted to bring up to the 'current version of Perl' -- 5.8.0. Sigh. Thanks again Red Hat. At least it keeps me in quick contracts.