Trie by perl (XS)