foreach $host (@syshost)
  {
    $threadHost = threads->new(\&runSeries, $host);
  }

  sub runSeries
  {
    my $stuff = @_;
    < parse through $stuff...and do data manipulation>
    $threadStuff = threads->new(\&PrintOut, $stuff)->join;
  }