use warnings;
use strict;
use Data::Dumper;

my $popCt = 4;
my %HoH;

for (1 .. $popCt) 
{
	my ( $refToArrA, $refToArrB, $refToArrC ) = makeArrays();
	&gener();
}
print Data::Dumper->Dumpxs([\%HoH], [q{*HoH}]);


sub makeArrays
{
	my ($upper, $lower);
	print 'Enter lower bound: ';
	chomp ($lower = <STDIN>);
	print 'Enter upper bound: ';
	chomp ($upper = <STDIN>);
	my @chroma;
	my @chromb;
	my $ranpop;
	
	$ranpop = int rand($upper - $lower + 1) + $lower;
	print $ranpop . "\n";

    my @arrA = ( 1 .. $ranpop );
	
	my $limiter = 50;
	my @holda;
	my @holdb;
	while ($ranpop) 
	{
		my $genea = int rand ($limiter);
		push(@holda, $genea);	
		my $geneb = int rand ($limiter);
		push(@holdb, $geneb);
		$ranpop--;
	}
	
	
    my @arrB = ( @holda );
    my @arrC = ( @holdb );
	
    return \@arrA, \@arrB, \@arrC;
}

sub gener
{
	my @newind = @$refToArrA;
	my @newchroma = @$refToArrB;
	my @newchromb = @$refToArrC;
    for my $pop ( 1 .. $popCt )
    {
        $HoH{$pop} =
           {
               individual  => [ @newind ],
               chromasome1 => [ @newchroma ],
               chromasome2 => [ @newchromb ],
           };
    }
}