if((0 & (1 << (($dlength-1)-$i)))>0)

这段代码的作用是判断一个二进制数的某一位是否为1。具体而言，这个代码使用了位运算的技巧，通过将一个二进制数中的某一位与1进行按位与运算，来判断这一位是否为1。

其中，`$dlength` 变量表示二进制数的长度，`$i` 变量表示要判断的二进制数的位数。在这个代码中，首先计算了一个位掩码 `(1 << (($dlength-1)-$i))`，它的值是一个二进制数，在第 `$i` 位上是1，其他位上是0。然后，将这个位掩码与0进行按位与运算，如果结果大于0，说明要判断的二进制数在第 `$i` 位上是1，否则为0。

需要注意的是，这个代码使用了一个括号将位掩码的计算部分括起来，这是为了避免运算符优先级的问题。在 Perl 中，位运算符的优先级比较低，如果不加括号，可能会导致运算结果不正确。

另外，这个代码中的数字0可以省略，因为它与任何数进行位运算的结果都是0。因此，这个代码也可以写成：

if ((1 << (($dlength-1)-$i)) & $uiData) {
    # 第$i位为1
} else {
    # 第$i位为0
}

这样可以更加清晰地表达代码的意图。