#!/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;

##</code><code>##

011101111111
4294967295
011101111111
Result: 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1