for $a (sort keys %mstrToken)
{
  $df = 1;
  	foreach $doc (@docNames)
	{
	   %tempHash = %{$hash2 {$doc}};
	   
	   if(exists $tempHash{$a})
	   {
	     $tkfreq = $tempHash{$a};
	     $mh{$a}->{'docf'}=$df++;
	     $mh{$a}->{$doc} =$tkfreq;
	   }
	   
	}
	 #end of file processing for loop
}