foreach(keys %UnNum){
        foreach my $word(@midWords){
            if $word eq $_ {
            $UnNum{$_}++;
            }
        }
}