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

##</code><code>##

sort { $allScripts{$a} <=> $allScripts{$b} } keys %allScripts 

##</code><code>##

    # key-value pairs in a Perl hash are not always 
    # stored in the order in which they were defined!