use Data::Dumper;

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

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

   print Dumper $family; # print empty hash