#!/usr/bin/perl
use strict;
use warnings;
use Algorithm::Combinatorics 'subsets';

my @headers = split ' ', scalar <DATA>;
my @data = map [split], <DATA>;

my @subsets;
for my $k (3, 4) {
	push @subsets, subsets([0 .. $#headers], $k);
}

for my $indices (@subsets) {
	my $count = 0;
	for my $aref (@data) {
		++$count unless grep $_ eq '0', @$aref[ @$indices ];
	}
	print "@headers[ @$indices ]\t$count\n";	
}

__DATA__
A	B	C	D	E
0	0	0	+	0
+	0	+	+	+
0	+	+	+	+
0	0	+	+	0
+	+	+	+	+
0	+	+	+	+
+	0	+	+	0