my @desc = ("Dad", "Mom", "Kid", "Pet");
@{$h{TEST}}{@desc} = ("Mr", "Mrs", "baby", "none");