do {
   my @daten = naechstes_paeckchen();
   ....
} while (@daten);

# nu iss die Datei wohl aus