Select Code to Download

my @list = qq(1 2 3 4);
my $csv = Text::CSV->new({sep_char => ';'});        
...
    print "combine () failed on argument: ",
          $csv->error_input, "\n";
}

1 2 3 4

1;2;3;4