print "removed=$removed, ", scalar @chroma, "\n";
splice (@chroma, $removed, 1);