$seen->{ ref($_) ? $_ : \$_} = undef