foreach my $line (@file) {
  (undef) = <FILE>; # stores number of lines into $.
  $count++;
  print FILE, "$count. ";
  if ($count == $.) {last; }
}