Why complicate the matter more than needed? :)

csv (in => \@records, headers => \@col_names, out => "/tmp/foo.csv");
[download]