Select Code to Download

use strict;
use threads;
...
   package cfg;
    %cfg::thash : shared = ();
}

      
use strict;
use threads;
...
    %cfg::thash = ();
    share(%cfg::thash);
}

use strict;
use threads;
...
    %cfg::thash = ();
    threads::shared::share(%cfg::thash);
}

lock(%cfg::thash);
$v1="A";
$v2="1";
$cfg::thash{$v1}{$v2} ="b";