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