if ($word eq $prevword) {

##</code><code>##

if ($word ne $prevword) {