>perl -wMstrict -MData::Dump -le
"my %HoAoH = (
   'People' => [
     { 'name'    => 'Bob Dole',
       'address' => '123 peach st.',
       'spouse'  => 'Bill Clinton',
       'father'  => 'Frank Dole'
       },
     { 'name'    => 'Al Pacino',
       'address' => '123 orange st.',
       'spouse'  => 'Robert Deniro',
       'father'  => 'Marlon Brando'
       },
     ],
   );
 ;;
 dd \%HoAoH;
 ;;
 print $HoAoH{People}[1]{name};
 print $HoAoH{People}[1]{address};
"
{
  People => [
    {
      address => "123 peach st.",
      father  => "Frank Dole",
      name    => "Bob Dole",
      spouse  => "Bill Clinton",
    },
    {
      address => "123 orange st.",
      father  => "Marlon Brando",
      name    => "Al Pacino",
      spouse  => "Robert Deniro",
    },
  ],
}

Al Pacino
123 orange st.