Re: Script far too slow with large files

You can gain some time by using a search for id that stops when it finds any match instead of continuing thru the whole list.

use List::Util qw/any/;
...
#    if ($A+$B == 2 && grep {$_ eq $TI} @IDS){
    if ($A && $B && any { $_ eq $TI } @IDS) {
[download]

Update: toolic's idea is better.

But God demonstrates His own love toward us, in that while we were yet sinners, Christ died for us. Romans 5:8 (NASB)

Comment on Re: Script far too slow with large files - wisdom needed! Download Code