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

##</code><code>##

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