use FreezeThaw 'cmpStr';sub f{my($h)=@_;grep{!exists$$h{$_}{O}||cmpStr@{$$h{$_}}{C=>'O'}}keys%$h}