$seen{$a} = $a; # capture the reference