my $indexers = Parallel::ForkManager->new(14);
while (my $data = $r->fetchall_arrayref(undef, 5000)){
         $indexers->start and next;
         ..  do stuff ..
         $indexers->finish;
}
$indexers->wait_all_children;