while(<DATEN>)
 {
 push(@zeilen, $_);
}

$i = 0;

for(@zeilen)
{
...
print FILE @zeilen[$i];
...
}