Well, your immediate problems are solved by changing the line in Adres::addPerson from

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

to

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

and the line in Adres::printProperties from

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

to

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

But there are a number of other problems waiting to happen in this code. I recommend rereading perlreftut, perlboot and perltoot before going too much further.

--
<http://www.dave.org.uk>

"Perl makes the fun jobs fun
and the boring jobs bearable" - me