You are not specifying which table you are setting the column names on. Look at the DBD::CSV docs. Your columns should be set like so:

$dbh->{'csv_tables'}->{'export_list'}={
  'sep_char' => "|",
  'col_names' => [qw(timestamp email name address city state zip)]};
[download]

Also, execute returns no useful information on a select statement, so there is no point in saving its return value. On a non-select statement (e.g. update, delete), it returns the number of rows affected.

And your die() statement is useless since you have RaiseError set. If there is a DBI error, DBI will execute a die() on its own before you ever get to that die statement.