use Tree::Trie;
my $trie = new Tree::Trie;
$trie->add_data( word => 'data');
my @sent = $trie->lookup_data('word');
print "List context: @sent\n";
my $data = $trie->lookup_data('word');
print "Scalar context: $data\n";