in reply to Implicit loop counter

There's always
$e = 1;
foreach $line (@LINES) {
print "You are on line $e";
$e++;
}

[download]

In Section Seekers of Perl Wisdom