Select Code to Download

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 $compare = $x & $y;
my $joint = $compare =~ tr/1/1/;
print "$joint\n";