my %procs = map { chomp; $_ => undef } qx/ps -a ho comm/;