sub anon_ref {
        $N ||= 1;
        
        my $name = sprintf "var%04d", $N;
        my $ref = \${ 'NAMESPACE::' . $name };
        delete $NAMESPACE{ $name };
        $N++;
        
        return ($ref);
    }