[Perl] Socket e Thread

[4l3]

Ciao a tutti, devo realizzare un'applicazione che mi permetta di effettuare connessioni simultanee a vari host, e portare avanti il dialogo con i vari server parallelamente.
Ho optato per una struttura del genere:

sub thread_c {
   
    $MySocket=new IO::Socket::INET->new(PeerPort=>1234,
            Proto=>'tcp',
            PeerAddr=>$_[0]);

        $MySocket->recv($text,1024);
        #eccc.......
        #eccc.......
}

#............
#............

push(@thread_vector,threads->new(\&thread_c, $host)); 
push(@thread_vector,threads->new(\&thread_c, $host2)); 
push(@thread_vector,threads->new(\&thread_c, $host3)); 

Questa struttura mi crea problemi:
ovvero durante l'esecuzione del programma non riesce a connettersi ad alcuni host, pur essendo totalmente raggiungibili, e gli host a cui si connette dipende da l'ordine in cui avvio i thread(con relativo host assegnato) ...questo mi lascia pensare che alcuni thread non riescano ad accedere al socket perchè non sto gestendo bene il parallelismo...

Qualche idea?