Ouch, I was aware of the fix that allows 1..1000000 to work, thus I started my post with "And...", I was, however under the impression that  foreach (<FH>) {} was special vs. foreach (<>) {}.

Guess I's been spoilt by dem fancy computairs wif all dat memoree. =) And I never tried to use $. before either, THAT would have made the problem clearer...

#!/usr/bin/perl -w

open FH, "</really/huge/file" or die "Eeek, $!\n";

foreach (<FH>) {
   print "$. - $_";
}
[download]

Ow! Every line has the same line number! =)

--
$you = new YOU;
honk() if $you->love(perl)