my $tp = 0;

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

foreach my $allpred ( @allpreds ) {
        if ( $myhash{$allpred} ) {
            $tp = 1;
            last;
        }
}

my $fp = ($tp == 1) ? 0 : 1;