while((my $varname, my $globvalue)= each %thepackage::){

        local *varAlias = $globvalue;
        my $reftype = ref $varAlias;
        #do lots of over stuf
     }