a little shorter:

delete @h{grep(ref($h{$_}), keys(%h))};