So localizing seems to be thing to do here. There are just too many variables to be localized. I've found that using Devel::Symdump lets me dump all the symbols used in the program.

$globalthis = 0;
$globalthat = 0;

require Devel::Symdump;
$obj = Devel::Symdump->new();

    @array = $obj->scalars;

    foreach (@array){
     print "$_\n";
    }
[download]

How can I local everything in @array? I know its probably extremely dangerous, so I will most likely build a difference table between what is in @array without anything loaded and then again with. Any help is appreciated.