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