Select Code to Download

my (%f_count,%n_count);

...
        $f_count{$name}{$file}++;
    }
}

my $num_of_files = scalar @files;
my $min = 25;
...
    next unless $in_files == $num_of_files;
    print "$name\n";
}