Select Code to Download

            if( exists $copyRef->{ $step } ) {
                 $copyRef = $copyRef->{ $step };
...
                 lock %{ $copyRef };
                 $copyRef = $copyRef->{ $step } = &share( {} );
             }

            lock %{ $copyRef };
            $copyRef = $copyRef->{ $step } //= &share( {} )

...
my %subhash;
...
lock %mainSharedHash;
$mainSharedHash{ $key } = shared_clone( \%subhash );
...

...
my %subhash :shared:
... # populate it
lock %mainSharedHash;
$mainSharedHash{ $key } = \%subhash;