#! perl
use strict;
use warnings;
use Data::Dumper;

my %families = ( Flintstone => { husband  => 'Fred',
                                 wife     => 'Wilma',
                                 daughter => 'Pebbles',   },
                 Rubble     => { husband  => 'Barney',
                                 wife     => 'Betty',
                                 son      => 'Bamm-Bamm', }, );
print Dumper(\%families), "\n";