%a =
(
'b' => {},
'' => {'c' => [{}]},
);

for(values %a) {
   delete $a{b} for(@{$_->{c}})
}