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