package LaLa;
use strict;
use warnings;
use Scalar::Util 'refaddr';
my %name;

sub newlala {  # No point in using prototypes for methods.
    my $class = shift;
    return bless \do {my $var}, $class; # Always use two-arg bless
}

sub setname {
    my $self = shift;
    $name{refaddr $self} = shift;
}

sub getname {
    my $self = shift;
    return $name{refaddr $self}
}

sub DESTROY {
    my $self = shift;
    delete $name{refaddr $self}
}

1;