Hmm, just tried it with my fix and it worked just fine. Oh yeah, and use strict!

UPDATE: For it to do what you want it to try this:
UPDATE2: updated code with some semblance of strict

#/usr/bin/perl -w

use Win32::IProcess;

use strict ;

my $process = new Win32::IProcess || die "Unable to create new process
+!: $!\n";
my @processlist ;

$process -> EnumProcesses(\@processlist) || die "Unable to get process
+ list: $!\n";
my $count = 0;
foreach $process(@processlist)
{
   
   my $pid = $process ->{ProcessId};
   my $name = $process->{ProcessName};
   
   
   if ($count <= $#processlist)
   {
      $count++;
   }
   
format STDOUT_TOP =
Number    Process Name        Process Id
======    ===================    =============
.

format STDOUT =
@<<<<    @<<<<<<<<<<<<<<<<<<<    @<<<<
$count,    $name,            $pid
.

write;
}
[download]

You only asked for help with your while loop, and I fixed it. the above code fixes ALL your issues

"Nothing is sure but death and taxes" I say combine the two and its death to all taxes!