open (my $EINGABE, '+<', $datei)     # öffne im Modus für Lesen/Update
  or die "Can't open $datei: $!\n";

my @zeilen = <$EINGABE>;

@zeilen = sort @zeilen;

seek $EINGABE,0,0;                   # Dateizeiger auf Dateianfang
truncate $EINGABE,0;                 # Datei auf Länge 0 kürzen

print $EINGABE $_ foreach @zeilen;   # Daten in Datei zurück schreiben

close ($EINGABE) or die "Can't close $datei: $!\n";