...
    {
        $HoH{$counter} =
	{
		individual  => [ @newind ],
		chromasome1 => [ @newchroma ],
		chromasome2 => [ @newchromb ],
	};
    }
...