Hi Jeffers,

So to sum the values in the columns, you can modify the final print statement a bit like so, or sum it up in the main processing loop:

Code:

foreach (sort keys %resultsHash) {
    $temp = $resultsHash{$_};
    print "$_ : @$temp\n";
    $sum1 += @$temp[0];
    $sum2 += @$temp[1] + @$temp[2];
}
print "Success [$sum1]\nFail [$sum2]\n";

Sample run:

Code:

eturk-linux 09:41:10 (~)> ./filter.pl data.dat
EPASS013 : 1 0 4
EPASS088 : 2 1 0
EPASSV09 : 1 2 0
Success [4]
Fail [7]
eturk-linux 09:41:15 (~)>

As a general unsolicited piece of advice, I recommend strongly that if you will be using more Perl in the future, you read some documentation of the language. The real deal is here:

Learn Perl - www.perl.org

I also like the Perl monks site for more advanced topics:

http://www.perlmonks.org/?node=Tutorials

There are a ton of resources out there for the inquisitive Perl person.

Cheers,
turk451