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