my $_index;
foreach (@list) {
  blah();
  print "You are on line ", $_index++, ".\n";
}