my $snp_chip_covered++;

##</code><code>##

my $snp_chip_covered = 1;

##</code><code>##

my $snp_covered{$mismatch}

##</code><code>##

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} = '?????';
}

##</code><code>##

my @snp_covered;

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

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

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