for (@proc_requests){
  print join "\t",$_->PID,$_->p->LName,$_->sent_email,"\n";
};