Also you may want to look at
Bitwise String Operators, and relatively new bitwise operator
'|.'.
Here I use v5.28.0:
#!/usr/bin/perl -wl
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 $bits1 = join '', @array1;
my $bits2 = join '', @array2;
print $bits1 | $bits2;
use feature 'bitwise'; # from v5.22
print $bits1 | $bits2;
print $bits1 |. $bits2;
# So...
print "Result: ", join ', ', split //, $bits1 |. $bits2;
OUTPUT:
011101111111
4294967295
011101111111
Result: 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1