use Devel::Peek;
...

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

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