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