# this is all you need to add someone
push(@{$self->{persons}},$aPerson);