for(0 .. $tf)
        {
            my $last=vec ($wektor, $index++, 32);
                        $pos{$docID}{$last}=$order;
        }