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

##</code><code>##

$ perl -wle 'print ref bless [] => 0'
0

##</code><code>##

$seen -> {ref () // \$_} = undef;