my $tp=0;
my $fp=0;

my @allpreds = ($pred,$pred1,$pred2,$pred3,$pred4,$pred5);

$fp++;
foreach my $allpred (@allpreds) {
    if ($myhash{$allpred}) {
        $tp++;
        $fp--;
        last;
    }
}
[download]