@bits = split(//, unpack("b*", $vector));