Everyone
I appreciate the help. After taking all of your view in, I fixed my problem. I didn't need the while statement, because the foreach statement acts as the while. Plus, I had the write statement in the wrong place. I have provided the code below for everyone.

#/usr/bin/perl -w

use Win32::IProcess;


$process = new Win32::IProcess || die "Unable to create new process!: 
+$!\n";
$process -> EnumProcesses(\@processlist) || die "Unable to get process
+ list: $!\n";
$count = 0;


foreach (@processlist){

    $pid = $_ ->{ProcessId};
    $name = $_ ->{ProcessName};
    $count++;
    write;
}
    
format STDOUT_TOP =
Number    Process Name        Process Id
======    ===================    =============
.

format STDOUT =
@<<<<    @<<<<<<<<<<<<<<<<<<<    @<<<<
$count, $name,            $pid
.
[download]

Plus, if anyone would like to find the Win32::IProcess modules you can map your PPM repository to this URL.
http://idnopheq.perlmonk.org/perl/packages
So, I thank all of the monks for all of the help.
Thanks,
Curtisb