$self->{@persons[$self->getPersonCount()]}=$aPerson; 

##</code><code>##

push @{$self->{persons}}, $aPerson;

##</code><code>##

$self->{@persons[$counter]}->printProperties(); 

##</code><code>##

$self->{persons}[$counter]->printProperties();