$popcount = unpack '%b*', $bitstring;