use strict;
use warnings;
use Data::Dump;

my $HoH = {
   flintstones => {
       lead  => "fred",
       pal   => "barney",
   },
   jetsons     => {
       lead  => "george",
       wife  => "jane",
       "his boy" => "elroy",
   },
   simpsons    => {
       lead  => "homer",
       wife  => "marge",
       kid   => "bart",
   },
};

dd $HoH;