Help for this page

Select Code to Download

Select or download this
grep sub { (1 == grep defined, @_) or ($_[0] ne $_[1]) }->(values @{$h->{$_}}['O','C']), keys %$h;

Select or download this

my $chk = sub { (1 == grep defined, @_) or ($_[0] ne $_[1]) };
grep $chk->(values @{$h->{$_}}['O','C']), keys %$h;