foreach $word (@words) {
        if ($word ne '') {
            my $flip = ($word eq $prevword)..($word ne $prevword);
            if ($flip eq '1') { # Use eq to avoid warning when flip is ''
                print " $n $word\n";
            }
            $prevword = $word;
        }
    }