my $count;
while(<INPUT2>){
         chomp;
          my @current_line  = split /\t/;
          my $mismatch =3;
          next unless $current_line[5] == 1 && 
            $current_line[14] >= $mismatch;

          $count++;
}