my $copy1b = '0' . $copy1;
      my $copy2b = $copy2 . $_;
      
      $n = ($copy1b | $copy2b);   


##</code><code>##

  DB<38> say (0 . "$_" | 1 . "1") for qw/0 2 4 6 8/ 
11
11
15
15
11

##</code><code>##

  DB<39> use feature 'bitwise'; say (0 . "$_" |. 1 . "1") for qw/0 2 4 6 8/ 
11
13
15
17
19