Select Code to Download

$ perl -Mdiagnostics -Mwarnings x
Scalar value @persons[$counter] better written as $persons[$counter] a
+t x line
...
             count => 0
              name => Leon
</pre>

use warnings;
use strict;
# use diagnostics; # verbose but helpful for learning.

package Adres;
sub new
...
  push @{ $self->{'@persons'} }, $_;
 }
}

##################################################### 
## Class Constructor 
...
   $self->age(shift);
  }
}

sub age
{
...
 }
 return $self->{age};
}