if ( grep { exists $myhash{ $_ } } @pred ){
    $tp++;
} else {
    $fp++;
}
[download]