my @cmp = $line[$i] =~ /\tchr([0-9]+)\t/g;
    if (2 == @cmp and $cmp[0] != $cmp[1]) {
        print $line[$i];
    }