use strict;
use warnings;

use Data::Dumper;

my %HoH;
my $popCt = 4;

gener();

print Data::Dumper->Dumpxs([\%HoH], [q{*HoH}]);

sub gener
{
    my @chroma = ( 0...10 );
    my @chromb = ( 0...10 );
    my @ind    = ( 0...10 );

    for my $pop ( 1 .. $popCt )
    {
        $HoH{$pop} =
           {
               individual  => [ @ind ],
               chromasome1 => [ @chroma ],
               chromasome2 => [ @chromb ],
           };
    }
}