# Print a new header and the column line to it
print "Replacement Header Text Here\n\n";

# print the sorted data.
print render($csv, @columns), "\n";
print render($csv, @$_), "\n" foreach @data_lines;

sub render {
    my ($csv, @cells) = @_;
    
    $csv->combine(@cells);
    return $csv->string();
}