You suggest the use of $., but perlvar cautions with respect to $. that

Because ``<>'' never does an explicit close, line numbers increase across ARGV files (but see examples under eof()).

The OP seems to want to process multiple files from the command line. The relevant example from the entry for eof is:

   # reset line numbering on each input file
    while (<>) {
        next if /^\s*#/;        # skip comments
        print "$.\t$_";
    } continue {
        close ARGV  if eof;     # Not eof()!
    }
[download]