Fine, that's a good q&d thing to do and your code probably does it. The code you posted just got mangled so there is no key between $proc{} and {PPID}.

     $total = kill 9, sort { $procs{$a}{PPID} <=> $procs{$b}{PPID} } k
+eys %procs;
                                    /\                   /\
[download]

that's all I was mentioning.

p