$TheLine = $_;
          while (my $TheLine = <INPUT>) {
           # ....etc.
          }

##</code><code>##

      @lines = <INPUT>;
          for (@lines) {
             if (/<RD>[^\n]*Status Compendium<<.JL>/i ) {
             # notice that $_ is assumed here
               foreach my $word (@WordList) {
                 print OUTPUT if($_ ne $word)
                  # here we need $_ for camparison (?)
               }
             }
          }