use strict;
use warnings;
use Tree::Trie;

my $trie = Tree::Trie->new( { deepsearch => 'prefix' } );

$trie->add_data
(
    '+61'      => 'Term',
    '+611411'  => 'Outleg_1',
    '+6114110' => 'Outleg_2',
    '+65'      => 'Term_Ref',
     default   => 'unknown',
);

my $result = $trie->lookup('+612');
print "+612: $result\n";