Select Code to Download

for my $i (1 .. 5) {
    my $empl = Animal->new();
...
    print " $i\n";
    print $empl->getDNA ();
}

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