Select Code to Download

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

my $tp = 0;
for ( @pred ) {
...
        last;
    }
}

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