BEGIN{FS=OFS=","}
Pass==1 &&    /#/ {for(I=1;I<NF;I++) Name[$I]=I ; next }
Pass==1           { M++; H0[$NF]++ }
Pass==2           { N++;Attr[N]=Name[$1]; Val[N]=$2}
Pass==3 && good() { Selected++; H[$NF]++}
END               { for(I in H0)
		              print I " "  int(100*H[I]/Selected)
}		
function good(   i,want,got) {
	for(i=1;i<=N;i++) {
		want[$Attr[i]]
		if ($Attr[i] == Val[i] ) 
			got[$Attr[i]]
	}
	for(i in want)
		if (! (i in got))
			return 0
	return 1
}