use Symbol;
$a = gensym;
$b = qualify_to_ref $a;
undef $a; # This works
# how to remove $a via $b
print "A>",$a ,"<\n";
print "B>",$b ,"<\n";