foreach my $key2 ($keys %UnNum){
		foreach my $word(@midWords){
			if $word == $key2 {
			$UnNum{$key}++;
			}
		}
}