# ersetzt den bisherigen print-Befehl:
print OUTDATEN join(';',@$entry),'NeueSpalte',"\n";  #ausgabe in datei