sub runTests
{
...
    foreach my $userType (...
        for my $i ( ...
            push @threadList, threads->new( ...
        }
    }
...
   foreach my $thread (...
        $thread->join;
   }
}