delete @hash{ grep ref($hash{$_}) eq 'HASH' && %{$hash{$_}} == 0, keys %hash };