Select Code to Download

my %families = (
                desilu => {ricky => 'lucy',
...
                            barney => 'betty',
                           },
             );

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