$globalthis = 0;
$globalthat = 0;

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

    @array = $obj->scalars;

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