Select Code to Download

 

 use threads::shared; 
...
      push(@{$state[$j]}, $k[$f]);
    }

 
~/my_perl_test> perl sharingpoes2.pl
$VAR1 = [ 
...
        ];