my @x = qw( 0 0 0 0 1 1 0 0 0 0 1 0 );
my @y = qw( 1 0 0 0 1 0 1 0 1 0 1 0 );

my $x = join '', @x;
my $y = join '', @y;

my $compare = $x & $y;
my $joint = $compare =~ tr/1/1/;
print "$joint\n";