my $NAME_OF{ id $self } = "Larry";

# instead of

my $NAME_OF{ refaddr $self } = "Larry";