Select Code to Download

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

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

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