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;

##</code><code>##

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