so given the number is shown in the UI the range should be from 1, although it would then need to be adjusted for the array index (if you need to use it as such). There are a number of things in that code fragment that can be tidied up somewhat. Consider:

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

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

push doesn't need () and there is less clutter on the line without them. $i can be interpolated directly into the string again reducing clutter. Using $empl makes it clear that that is the object being accessed rather than figuring out that that was the last thing pushed onto the array and that the index variable is correct. Instead of the index you could have written:

print $this->{individual}[-1]->getDNA();
[download]

which gets you the last element in the array and is safer than relying on the index variable being correct, but doesn't make the intent as clear as using the variable as shown earlier.