use Data::Dumper;

  my $family={ father=>'foo', mother=>'bar',};

       for(keys %$family){
            if(!defined($_)){
                delete $family->{$_}
             }
        }

   print Dumper $family; # print out your hash