a       14458708
se      10848091
v       10688846
na      8721120
je      5353514
že      4991304

##</code><code>##

Je mi urcite cti, avsak predstavit pomerne strucne, a navic bez moznos
praktickych ukazek, nas hlavni a nosny produkt, muze zpusobit I male
komplikace. Proto prijmete prosim tento clanek jako snahu, poskytnout

##</code><code>##

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

##</code><code>##

open(READ, $filer) || die "error: couldnt open file: $!";
open(WRITE, "> $filew") || die "error: couldnt open file: $!";

while (defined ($line = <READ>))
{
@words = split(/ /, $line);

#here id like to compare word from each line of "input" with "cetnosti" and write it to "output" but i have no idea how to do it

}
close(READ);
close(WRITE);