while (<$inFH>) {
  .. do something with $thisLine ..
  }