HASH(0x2240e7c) #### package Foo; ... sub new { my $class = ""; my $intID = ""; my %hshAgg = (); ( $class, $intID, %hshAgg ) = @_; my $self = { class => $class, id => $intID, hshAgg => %hshAgg }; } ... sub get_hshAgg { my $self = shift; return $self->{hshAgg};; } sub set_hshAgg { my $self = shift; my %hshAgg = shift; $self->{hshAgg} = %hshAgg; }