if (map { (defined $hash->{$_})? 1 : () } qw(A B C))