my $docID=0;
my $tf=0;
my $index=0;
my $Aa=time();
for(1 .. 2000000)
{
   $docID = vec ($dp, $index++, 32);
   $tf = vec ($dp, $index++, 32); $ TERM FREQUENCY
			    	
    $vec{$docID}=$tf;  ### SAve Data 
    for(1 .. $tf)
    {
	my $poss=vec ($dp, $index++, 32);
	$pos{$docID}{$poss}=\$order;# save Data
    }    
}
print "unpack vector in \t",time()-$Aa,"  secs...\n";