for (@processlist){
   $pid = $_ ->{ProcessId};
   #...