sub bytearray_to_bigint2 {
        my $result = Math::BigInt->new('0');

        for my $byte (reverse @_) {
            my $tmp  = Math::BigInt->new($byte);
            $result  = $result->blsft(8);
            $result += $tmp;
        }
        return $result;
    }