@ary = map { pack "B32", join "", (1) x $_, (0) x (32 - $_) } 0..31;
print unpack("B*",$_),"\n" for @ary;