@headers = (
  "First",
  "Second",
  "Third",
  "Fourth"
);

@cols = (
  "I'm text",
  12,         # <--Number
  "",
  "That was a blank"
);

my $csv = Text::CSV_XS->new;
open my $fh, ">Output.csv" or die $!;
$csv->print($fh, @headers); # Prints with \n by default
$csv->print($fh, @cols);    # Use something like
                            #   $csv->print($fh, @$_) for @rows
                            #   for an array of data.