my @zeilen = <DATEN>; # wozu while, wenn du eh alles in @zeilen haben willst?

for my $i (0 .. $#zeilen) {
  print FILE $zeilen[$i]\n";
  # mach was mit $i
}