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