sub init {
my $i;
foreach $i (0 .. 4) { 
	my $this = shift;
	my $empl = Animal->new();
	$empl->setDNA(4, 6, 8, 10);
	push (@{$this->{individual}}, $empl);
	print " ".$i."\n";
	print $this->{individual}->[$i]->getDNA();
	}
}