# count each column for my $n (0..$#col){ ++$counts{$col[$n]}{$f[$n]}; if ($col[$n] eq 'Status'){ ++$counts{$col[$n]}{'FAILED'} if $f[$n] > 1; } } printf "Statistic.FAILED = %d\n",$counts{'Status'}{'FAILED'};