grep($_ == $wanted, @{$p->table} )

##</code><code>##

  grep($_->pid == $wanted, @{$p->table} )