my @list = qq(1 2 3 4);
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";
}

##</code><code>##

1 2 3 4

##</code><code>##

1;2;3;4