{
    package cfg;

    %cfg::sessions = ();
    threads::shared::share(%cfg::sessions);
}

##</code><code>##

$myhash{A} = $cfg::sessions{A};

##</code><code>##

use Storable qw(dclone);
$myhash{A} = dclone($cfg::sessions{A});

##</code><code>##

use Clone qw(clone);
$myhash{A} = clone($cfg::sessions{A});