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