my $tp = 0;
    my $fp = 0;
    if (   $myhash{$pred}
            || $myhash{$pred1}
            || $myhash{$pred2}
            || $myhash{$pred3}
            || $myhash{$pred4}
            || $myhash{$pred5}
            || $myhash{$pred6} )
        {
            $tp++;
        }
        else {
            $fp++;
        }

##</code><code>##

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

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

foreach my $allpred ( @allpreds ) {
        if ( $myhash{$allpred} ) {
            $tp++;

        }

    }
if ( !myhash{$pred} ) {
        $fp++;
    }