$seen->{ ref($_) ? $_ : \$_} = undef #### $ perl -wle 'print ref bless [] => 0' 0 #### $seen -> {ref () // \$_} = undef;