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

##</code><code>##

for( @pred ) {
.........