Select Code to Download

my @results_tmp = map {($_ ne "") ? "$_" : "--"} @results;
print join(",", @results_tmp),"\n";

my @results_tmp = @results;
($_ eq "") && ($_ = "--") for @results_tmp;
print join(",", @results_tmp),"\n";