sub runSearch {
  my $outputQueue = Thread::Queue->new();
  my $outputThread = threads->create(\&outputSub,$outputQueue);

  my $workerQueue = Thread::Queue->new();
  my @workerThreads = map threads->create(\&workerSub,$workerQueue,$outputQueue), 1..$numThreads;

  $workerQueue->engueue($_) foreach @computer;
  $workerQueue->enqueue(undef) for 1..$numThreads;
  $outputQueue->enqueue(undef);

  $_->join for @workerThreads;
  $outputThread->join;
}

sub workerSub {
  my ($workerQueue,$outputQueue) = @_;
  while (my $computer = $workerQueue->dequeue()) {
    ## SSH command retrieving grep results and processing
    $outputQueue->enqueue($results);
  }
}

sub outputSub {
  my $outputQueue = $_;
  while (my $packet = $outputQueue->dequeue()) {
    print $results;
  }
}