sub print_out {
open(CSV, ">>$log/test2.csv");
  print CSV for (@array);
close CSV;
}

open(CSV, ">>$log/test2.csv") or die("Fehler beim oeffnen: $!");

my $file = "$log/test2.csv";
open( my $CSV, ">>", $file )
  or die "Error: couln't append to file '$file': $!\n";
print $CSV "@erste_Zeile\n";
close($CSV)
  or die "Error: couldn't close file '$file': $!\n";