my $snp_chip_covered;
my %snp_covered;

while (<INPUT2>) {
   chomp;
   my @current_line = split /\t/;

   next if $current_line[5] != 1
        || $current_line[14] < 3;

   $snp_covered{++$snp_chip_covered} = '?????';
}