foreach $host (@syshosts)				
{	
    threads->new(\&locateSysHost_Parallel, $host);
}						
(threads->list)[0]->join while threads->list;

##</code><code>##

foreach $host (@syshosts)				
{	
    threads->new(\&locateSysHost_Parallel, $host)->join;
}