for (keys %$a) { delete $a->{$_} unless $a->{$_} }