foreach $process(@processlist){

##</code><code>##

$process = new Win32::IProcess || die "Unable to create new process!: $!\n";

##</code><code>##

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