Help for this page
my $tp = grep { $myhash{ $_ } } @pred;
my $tp = 0; for ( @pred ) { ... last; } }
my $tp = 0; for ( @pred ) { last if $tp = $myhash{ $_ }; }