my @data = qw(Square Triangle Circle Square Triangle Circle Circle Rectangle Rectangle Circle Triangle Triangle Square Rectangle Rectangle Square) ;
$data = \@data ;
$attrs = [
	[1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1],
	[1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1],
] ;
my @result;
for( my $j = 0 ; $j < @{$attrs} ; ++$j ) {
	my %subres ;
	@subres{@{$data}} = ( 0 ) x @{$attrs->[0]} ;
	for( my $i = 0 ; $i < @{$attrs->[$j]} ; ++$i ) {
		if ( $attrs->[$j][$i] == 1 ) {
			++$subres{ $data->[$i]}  ; 
		}
	} ;
	push @result, \%subres ;
}
print Dumper(\@result) ;