foreach my $key2 (keys %UnNum{
 foreach my $word(@midwords){
  $UnNum{$keys2}++ if ($keys2 eq $word);
 }
}