%hash = (
    Name => 'myname',
    Number => 'my1234'.
    Rank => 'myrank',
});

##</code><code>##

@hash{"Name", "Number", "Rank"} = ("Kakarot", "3", "SSJ3");

##</code><code>##

my @desc = ("Name", "Number", "Rank");
my @vegeta = ("Vegeta", "2", "SSJ2");
@hash{@desc} = @vegeta;

##</code><code>##

my %h = (
        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");
@h{TEST =>{@desc}} = ("Mr", "Mrs", "baby", "none");

foreach my $a (keys %h){
        print "Key 1 => $a\n";

        foreach my $b (keys %{$h{$a}}){
                print "\tKey 2 => $b\n";
                print "\t\tValue => $h{$a}{$b}\n";
        }
}

##</code><code>##

(#prints existing data fine but...)
Key 1 => TEST
Can't use string ("Mr") as a HASH ref while "strict refs" in use at slice_hoh2.pl line

##</code><code>##


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");

##</code><code>##

Key 1 => TEST
Can't use string ("Mr") as a HASH ref while "strict refs" in use at slice_hoh2.pl line 35.

##</code><code>##

$h{TEST}{Dad} = "dad_TEST";
$h{TEST}{Mom} = "mon_TEST";
$h{TEST}{Kid} = "Kid_TEST";
$h{TEST}{Pet} = "pet_TEST";

##</code><code>##

Family1   Dad1   Mom1   Kid1   Pet1
Family2   Dad2   Mom2   Kid2   Pet2