delete @$a{ grep { not defined $a->{$_} } keys %$a };