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

##</code><code>##

use List::Util qw(first);
my $match = first {$_->pid  == $wanted} @{$p->table};