Select Code to Download

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

use Data::Dumper;

...
                            'Dad' => 'Fred'
                          }
        };