@value = {$hoh{$newcount}{'individual'}}; print "@value \n"; #### ... { $HoH{$counter} = { individual => [ @newind ], chromasome1 => [ @newchroma ], chromasome2 => [ @newchromb ], }; } ...