my $href = {
        Flinstones => {
                Dad => "Fred",
                Mom => "Wilma",
                Kid => "Pebbles",
                Pet => "Dino"
        },
        Simpsons => {
                Dad => "Homer",
                Mom => "Marge",
                Kid => "Bart",
                Pet => "Santas_Little_helper"
        }};

my $desc = ["Dad", "Mom", "Kid", "Pet"];
@{$href->{TEST}->{[@$desc]}} = ("Mr", "Mrs", "baby", "none");