#        1         2               3         4         5
#23456789012345678901234      56789012345678901234567890

use FreezeThaw 'cmpStr';sub f{grep{!exists$$_{O}||cmpStr

#        6         7
#2345678901234567890123456

@$_{C=>'O'}}values%{$_[0]}}