my $length = (scalar @recomb_all) - 1;