eingerückte Zeilen im array

[Beat]

Ich habe ein Array das ich in eine textdatei schreibe mit folgenden Befehl:
print FILE "@array";
im nächsten Schritt wird das gleiche Array wieder in die Datei überschrieben und eine zusätzliche Zeile angehängt mit
print FILE "@array";

Das ist erstmal ein unperformanter Mist, einen Array zu stringfizieren.
Dein Listenseparator wird dabei zum Leerzeichen.

print join("\n", @array), "\n";
dürfte wohl eher das intendierte sein, was bidingt

print FILE $Zeichenkette, "\n";

Da gibt es noch viele andere Wege.

z.B.

foreach (@array, $string){
 print $_, "\n";
}

mfg Beat