$RegObj->Tie( \%RegHash );
$Registry= \%RegHash;
bless $Registry;