Perl process killer on Windows XP

package ProcessCleaner ;
#Purpose : kill specified processes on Windows XP machine


sub killProcesses {
my @passed_array = shift ;
my @procsToLookFor = split(/ / , @passed_array ); #get the names of the hanging apps to check

for(grep/\S/,`tasklist /v /nh`) {
chomp;my($p,$i,$u,$t)=unpack'A24A8x56A50x14A*',$_;$p="$p $t" unless $t
eq'N/A';$p=~s/ +/ /g;$i+=0;$u=~tr/ /_/;
#debug print"$i $u $p\n" ; #if we want the username who owns that process
foreach (@procsToLookFor) {
if ($p =~m/$_/ig ) #if found searchable
{ print "Killing $p with process ID : $i " ;
$cmd = "taskkill /PID $i /T /F" ;
`$cmd` ; #execute command
sleep 1 ;
}
}
}
} #eof sub killProcesses

#comments suggestions ?!