Starting with 1 is part of the dynamic programming algorithm, no bug.

 my @S = (undef, map { lc } split(/\w+/, $s));
[download]

should fix the wordlists (so that eq is enough). Further filtering as suggested below is a good idea, do that!