Select Code to Download

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

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