Use Devel::Peek to get an ASCII-printable representation of the strings you're comparing, and then verify that what you think should match is in fact identical:

use Devel::Peek;
...

    Dump lc($entry[$i]);
    Dump $stopword[$j];

    if (lc($entry[$i]) eq $stopword[$j])
    {
        ...
[download]