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

##</code><code>##

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

##</code><code>##

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