##############################################
# Move data into ':shared' hash of arrays
# setting all values for the entry, from
# thread local - global values

sub init_Contract {
    $Contracts{$key} = &share([]); # hook shared anonymous array 
                                   # into shared hash
    {
        #lock $Contracts{$key};    #lock only this single entry
        #lock $$Contracts{$key};    #lock only this single entry
        #lock $Contracts{$$key};    #lock only this single entry
        #lock $Contracts{$key}[STATE];

        $Contracts{$key}[STATE]=$state;  #set value in anonymous array.
        $Contracts{$key}[START]=$start;
        ...