use MCE::Grep;
my @a = mce_grep { $_ % 5 == 0 } 1..10000;

##</code><code>##

 
use threads;
use Thread::Queue;

my @thread_pool;

my $q = Thread::Queue->new();
my $results = Thread::Queue->new();

for (0..10000)
  {
  $q->enqueue($_);
  }

for (0..1)
  {
  push @thread_pool, threads->create( \&grep );
  }

sub grep
  {
  while (my $work = $q->dequeue() )
    {
    if ( $work % 5 == 0 )
      {
      $results->enqueue($work);
      }
    }
  $q->enqueue(undef);
  }

map {$_->join(); } (@thread_pool);
$results->enqueue(undef);
my @results;
while ( my $result = $results->dequeue() )
  {
  print $result, "\n";
  push @results, $result;
  }