my @field = qw(
   Title Email City State Country URL
   Date Description rid dt_create publish
);

my $insert_sth = $dbh->prepare(
   'INSERT INTO ads_2004 ('
   . join(', ', map "'$_'", @fields)
   . ') VALUES (?,?,?,?,?,?,?,?,NULL, NOW(), 0)'
);