package a;

sub new {

my $class = shift;

my $self = {};

bless $self,$class;

return $self;
}

my $obj = new a ();

$obj ->{$self}{avalue}=10;

print $obj->{$self}{avalue};