my $tp = grep { $myhash{ $_ } } @pred;

##</code><code>##

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

##</code><code>##

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