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";

##</code><code>##

List context: word data
Scalar context: data

##</code><code>##

my ($data) = $trie->lookup_data($fields->[0]);