braucht man nicht, wenn man nur die Datei nicht zum Anhängen öffnet, sondern einfach zum Schreiben. Da Du das open ja außerhalb der Schleife machst, reicht ein open(my $write_fh,'>',$output) or die $!.