my @bits = split //, unpack "b*", $vec;