There also is a module which implements the part function...

see: List::Part

use List::Part;
my ( $in, $out ) = part { m/$hit/ } @pids;
[download]

Where $in is an arrayref to the matches, and $out to the rest.