perl, multithreaded

am un obiect:package abc; sub new { my $class = shift; my $this = { xxx => yyy; sock => new IO::Socket.... , @_ }; bless($this, $class); return $this; }package main;$x = new abc(xxx=>'....');Pentru ca sa-l fac multithreaded eu fac asa:package abc; sub new { my $class = shift; my $this; main::share($this); $this = &main::share({}); $this->{xxx} => yyy; #$this->{sock} = new IO::Socket.... for(my $i = 0; $i {@_[$i]} = {@_}->{@_[$i]}; } threads::shared::bless($this, $class); return $this; }package main;$x = new abc(xxx=>'....');1. Cum pot sa scap de ciclul for in varianta a doua?2. Totul e ok atat timp cat eu nu incerc sa initializez atributul sock. Cum incerc sa-l initializez i-mi spune ca dau valoare invalida pentru shared object. Cum pot utiliza normal un socket in acest caz? M-am uitat cate ceva pe internet, dar cand vad ce perversiuni se fac pentru a rezolva problema, nu-mi prea vine bine.