%HoH = (
    flintstones => {
                   lead => "fred",
                   pal => "[ "george", "jane", "elroy" ],
    },
    jetsons => {
                  lead => "george",
                  wife => [ "george", "jane", "elroy" ],
                  boy => [ "george", "jane", "elroy" ],
    },
    simpsons => {
                  lead => "homer",
                  wife => [ "george", "jane", "elroy" ],
                  kid => [ "george", "jane", "elroy" ],
    },
  );

##</code><code>##

 $HOH{$key}{"name"} = $value;
  push(@{$HOH{$key}{"price"}}, $value2);