my $self = {};
bless $self, ...;
$self->{thing} = "something";
$self->{catagory}{subcatagory} = "something";