Select Code to Download

 
  DB<138> undef $m0; vec($m0,$_,1)=1 for  0,2,8,9,10

...
  DB<144> printf "%016b",$x                      # what I expected
0000011100000101
  DB<145>

   B  A bit string (descending bit order inside each byte).

  DB<184> p reverse unpack ('B8B8',$m0)
0000011100000101
  DB<185>