use Tree::Trie;

$trie = new Tree::Trie;
$filei = "cetnosti";
$filer = "input";
$filew = "output";

open(INFO, $filei) || die "error: couldnt open file: $!";
$lineno=1;
while ((defined ($line = <INFO>)) && ($lineno < 100000))
{
$line =~ s/\t.*//g;
$line =~ s/\n//g;
$trie->add($line);
$lineno++;
}
close(INFO);