my $csv = Text::CSV->new({sep_char => ';'});		
open (CSV, ">", "base.csv") or die $!;
	if ($csv->combine(@list)){
	print CSV $csv->string "\n";
	}
	else {
      print "combine () failed on argument: ",
          $csv->error_input, "\n";
      }