# [id://1230926]
use warnings;
use strict;

my @array1 = (0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1);
my @array2 = (0, 0, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1);
my @arrayResult = map { $array1[$_] | $array2[$_] } 0 .. $#array1;
print "arrayResult = (@arrayResult)\n";

use Test::More tests => 1;
is_deeply( \@arrayResult , [0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1] )