my $processes = Proc::ProcessTable->new;

for ( @{ $processes->table } ) {
    …;
}