Nested subs in Perl are actually global, but they bind, as a closure to the variables for the first time the parent sub is called.

Which is, I'm pretty sure, the root of his problem.