if ($bwa{$ID}[2] =~ /[D]/) { $splitstoreD = 1; } else { $splitstoreD = 0 }
            if ($bwa{$ID}[2] =~ /[I]/) { $splitstoreI = 1; } else { $splitstoreI = 0 }