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