while (<Fil>) {
   #  $_ has the current line from Fil
   ...
}