use strict;
use warnings;
use Data::Dumper;
my %celebs = (
    'Bob Dole' => {
                    'address' => '123 peach st.',
                    'spouse' => 'Bill Clinton',
                    'father' => 'Frank Dole'
                  },
    'Al Pacino' => {
                    'address' => '123 orange st.',
                    'spouse' => 'Robert Deniro',
                    'father' => 'Marlon Brando'
                  }
);

my @people = map {
    {
        name    => $_,
        address => $celebs{$_}{address},
        spouse  => $celebs{$_}{spouse},
        father  => $celebs{$_}{father},
    }
} keys %celebs;

print Data::Dumper->Dump( [\@people],[qw(*people)] );

##</code><code>##

@people = (
            {
              'spouse' => 'Robert Deniro',
              'father' => 'Marlon Brando',
              'name' => 'Al Pacino',
              'address' => '123 orange st.'
            },
            {
              'spouse' => 'Bill Clinton',
              'father' => 'Frank Dole',
              'name' => 'Bob Dole',
              'address' => '123 peach st.'
            }
          );