Select Code to Download

my $template = 'B' . @array1;
my $v1 = pack $template, join "", @array1;
my $v2 = pack $template, join "", @array2;
my @array_result = split //, unpack $template, $v1 | $v2;