use strict; use Proc::ProcessTable; my $t = new Proc::ProcessTable; my @flname = $t->fields; for (my $num=1; $num < @flname; ++$num) { printf qq[%u : %s\n], $num, $flname[$num]; }