$bin80bit = "\x01\x23\x45\x67\x89\xab\xcd\xef\xaa\xff";; ## get an 80-bit binary integer from somewhere.

@bits = unpack '(a1)*', unpack 'B*', $bin80bit;;

print scalar @bits, ':', "@bits";;
80 : 0 0 0 0 0 0 0 1 0 0 1 0 0 0 1 1 0 1 0 0 0 1 0 1 0 1 1 0 0 1 1 1 1 0 0 0 1 0 0 1 1 0 1 0 1 0 1 1 1 1 0 0 1 1 0 1 1 1 1 0 1 1 1 1 1 0 1 0 1 0 1 0 1 1 1 1 1 1 1 1