my @processes = (); open (PROCESSES, "ps -fu $user|") or die ("Couldn't open process list: $!"); while ($process = ) { chomp($process); my @process = split(/\s+/, $process, 8); push @processes, \@process; } close PROCESSES;