I prefer to use a module where the function name documents the operation.

# [id://1230926]
use warnings;
use strict;
use List::MoreUtils qw(pairwise);

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 = pairwise {$a or $b} @array1, @array2;
print "arrayResult = (@arrayResult)\n";

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

Thanks pryrt to the test script.