local *FILE;
open (FILE, "> $file") or die "Cannot write '$file': $!";
print FILE format_csv(@cols);
foreach my $row (@data) {
  print FILE format_csv(@$row{@cols});
}
close(FILE) or die "Cannot close '$file': $!";