my %families = (
                desilu => {ricky => 'lucy',
                           fred  => 'ethel',
                          },
                bedrock => {fred   => 'wilma',
                            barney => 'betty',
                           },
             );
[download]

... every now and then I go insane and try to dive in with:

  my $whiner = $families -> {desilu} -> {ricky};
[download]

It's not really a habit, but if I do it once in a project, I do it many times. So I'm very good friends with Data::Dumper::Simple.