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