for $a (sort keys %mstrToken) {
	$df = 1;
	foreach $doc ( @docNames ) {

		if( exists $hash2{ $doc }{ $a } ) {
			$mh{$a}->{ docf } = $df++;
			$mh{$a}->{ $doc } = $hash2{ $doc }{ $a };
		}
	}
}