my %seen;

while (<BATCH>) {
    chomp;
    s/\r//;
    my $filename = $_;
    $out_name = $filename;
    $out_name =~ s/\.txt//;
    $out_dir_name = "apt_SNPCall_".$out_name;
    foreach my $lf (@list_files){
    open (SAMPLE, "$out_dir_name/birdseed-v2.report.txt") || die "Error to open: $!";
    while (<SAMPLE>) {
        chomp;
        my @tab = split("\t", $_);
        if ($tab[0] eq $lf){
        my $sample = $lf;
        $sample =~ s/\.CEL//;

        if (!exists $seen{$sample}) {
            print $sample."\t".$tab[2]."\t".$tab[22]."\n";
            $seen{$sample} = 1;
        }
        }
    }
    }
}