Select Code to Download

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

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

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

my %h = (
        Flinstones => {
...
                print "\t\tValue => $h{$a}{$b}\n";
        }
}

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

my $href = {
...

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

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

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

Family1   Dad1   Mom1   Kid1   Pet1
Family2   Dad2   Mom2   Kid2   Pet2