print grep vec( pack('V',1431655765), $_, 1), 0 .. 31;; 0 2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 print grep vec( ~pack('V',1431655765), $_, 1), 0 .. 31;; 1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31