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