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