Try the code with a simple binary number, e.g. 100
@digits will be (0,0,1). And $result will be 0*2^0 + 0*2^1 + 1*2^2 = 4.