get_family_member('bart',$families);

sub get_family_member {
  my @args = @_;
  my $who = shift @args;
  my $families = shift @args;
  foreach my $family (%families) {
    if ($families->{$family}->{kid} eq "bart") {
      return $dfamilies->{$family}->{kid};
      last;
    }
  }
}