$bit = ($addr & 0x80000000) >> 31; $addr <<= 1; $node->[$bit] ||= bless([], __PACKAGE__);