print $cgi->header (
    -type       => "text/csv",
    -charset    => "utf-8",
    -attachment => "data.csv",
    );
my $csv = Text::CSV_XS->new ({ binary => 1, eol => "\r\n" });
$csv->print (*STDOUT, [ "Platform ID", "Processor ID",
    "Transaction ID", "Date", "Settlement Date",
    "Transaction type", "Status", "Amount", "First Name",
    "Last Name", "Address1", "Address(cont.)", "City",
    "State or Province", "Postal Code", "Country", "Phone",
    "Email", "Processor response code", "MSC response code",
    "IP Address", "CC Number", "Descriptor" ]);
foreach my $v (@a) {
    my ($m_id, @r) = @$v;
    $r[6] = $r[6] ? "succeeded" : "failed";
    $csv->print (*STDOUT, [ @r, $descriptors{$m_id}{$r[0]} ]);
    }
$dbh->disconnect;