foreach (@su_procs) {
	print "\n$_\n";
	$user eq split /.*\(/;
	print "$user\n";
}