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

##</code><code>##

bodi
forc
twice
mass
acceler
law 

##</code><code>##

35	forc two bodi twice strong on bodi sai bodi mass 
39	you expect on think new bodi made two bodi origin 
60	attract bodi b origin force
46	total forc b twice origin force
34	sai on bodi twice mass three time mass forc six 
17	on now see why bodi fall same rate bodi twice 

##</code><code>##

40     forc two bodi twice strong on bodi sai bodi mass 
41     you expect on think new bodi made two bodi origin