I may be missing something here, but why go to all this trouble? Whats wrong with just writing a subroutine which sets all the variables to whatever default value you want them to have, and calling that whenever appropriate?

Eg:

sub reset_all
{
    $x = undef;
    $counter = 1;
}
[download]

And so on..

C.