while (<>) {
  # $ARGV is the filename
  # $_ is the line
  # $. is the line number
    # reset it to 0 by doing
    # $. = 0 if eof;
    # or
    # close ARGV if eof;
}