my $tp = 0;
for ( @pred ) {
    if ( $myhash{ $_ } ) {
        $tp = 1;
        last;
    }
}