for my $i (1 .. 5) {
    my $empl = Animal->new();

    push @{$this->{individual}}, $empl;
    print " $i\n";
    print $empl->getDNA ();
}