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