my @snp_covered;

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

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

   push @snp_covered, '?????';
}