Please let me know if you have any suggestions,

• Read perlport in addition to the documentation for any Perl built-in functions or modules you are using.
• Show us your code, plus a small sample of your input data, your actual output and your desired output.

The code is included below: foreach my $word (@words) { chomp($word); foreach my $posWord (@positiveWords) { chomp($posWord); if ( lc($word) eq $posWord) { $numPosWords++; last; } } foreach my $negWord (@negativeWords) { chomp($negWord); if ( lc($word) eq $negWord) { $numNegWords++; last; } } } The input files are lists of words, one word on each line. For example, the list of positive words would be: good excellent outstanding ...etc. The text file is a movie review file, written in paragraph form, and I have to find positive and negative words by comparing each word in the text file to the positive/negative lists.

The two most common reasons are

1. Different line endings: Windows uses CR-LF, Linux just LF
2. Different character encodings: On Windows, CP-* and UTF-16LE are very often used, on Linux UTF-8 is used more often

The code is included below:

foreach my $word (@words) 
{ 
    chomp($word); 
    
    foreach my $posWord (@positiveWords) 
    { 
        chomp($posWord); 
  
        if ( lc($word) eq $posWord) 
        { 
            $numPosWords++; 
            last; 
        } 
    } 

    foreach my $negWord (@negativeWords) 
    { 
        chomp($negWord); 
   
        if ( lc($word) eq $negWord) 
        { 
            $numNegWords++; 
            last; 
        } 
    } 
}
[download]

The input files are lists of words, one word on each line. For example, the list of positive words would be:

good

excellent

outstanding

The text file is a movie review file, written in paragraph form, and I have to find positive and negative words by comparing each word in the text file to the positive/negative lists.

chomp will not be enough to remove whitespace at the end of the line if your text file was created on a Windows machine (or with Windows line endings) and is then used on a Unix machine (or with Unix line endings). Use a regular expression to strip all whitespace from the end of the line(s):

$negWord =~ s/\s+$//;
[download]

Please let me know if you have any suggestions,

There's a bug in your script. You don't say anything about your script. I'd say that would be the first thing to do.