Select Code to Download

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

bodi
forc
twice
mass
acceler
law

35    forc two bodi twice strong on bodi sai bodi mass 
39    you expect on think new bodi made two bodi origin 
...
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

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