Select Code to Download

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

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

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