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

         my $snp_chip_covered++;
}
         my $snp_covered{$mismatch}= $snp_chip_covered;