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

Since you want the first match, which should be the only match, use List::Util's first:

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