use autodie qw( open close );

use Text::CSV_XS;

my @records = get_records();

open my $fh, '>>', $file;

for my $record (@records) {
    $csv->print($fh, $records);
}

close $fh;