$ cat pm_1230926.pl
use strict;
use warnings;
use List::MoreUtils '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<$b ? $b : $a } @array1, @array2;

print "Result: ", join(", ", @arrayResult), "\n";

$ perl pm_1230926.pl
Result: 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1