Hi,
mal abgesehen davon, daß dein Script viel zu umständlich ist, würde
ich die Foreneinträge einfach schon falsch herum eintragen:
in @eintraege sind die alten Foreneinträge gespeichert.
open(DAT, ">buch.dat"); # Datei wird überschrieben
$zahl = $#eintraege; # Zahl der Einträge feststellen
print DAT "$akt_eintrag\n"; # neuen Eintrag schreiben
for($i=$zahl;$i>o;$i--;)
{
print DAT "$eintraege[$i]";
}
close(DAT);