filename(which is always the same);$list[0];$val1[0];$val2[0];
filename;$list[n];$val1[n];$val2[n];

##</code><code>##

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";
      }