for my $poper (1 .. $popCt) 
{
input();
gener(@chroma, @chromb, @ind);
}

##</code><code>##

sub input
{
	my ($upper, $lower);
	my $center = 1;
	print 'Enter lower bound: ';
	chomp ($lower = <STDIN>);
	print 'Enter upper bound: ';
	chomp ($upper = <STDIN>);
	my $ranpop;
	while ($center--) 
	{
		$ranpop = int rand($upper - $lower + 1) + $lower;
		print $ranpop . "\n";	
		
	my @ind = (1...$ranpop);
	my $limiter = 50;
	while ($ranpop) 
	{
		my $genea = int rand ($limiter);
		push(my @chroma, $genea);						
		my $geneb = int rand ($limiter);
		push(my @chromb, $geneb);
		$ranpop--;
	}
return @chroma, @chromb, @ind;
    }
}