Select Code to Download

$sth = $dbh->prepare (q{
   INSERT INTO sponsor VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)}
);

my %sql_data = (
    name     => $name, 
...
# values() is guarenteed to come out in the same order as keys()
$sth->execute(values %sql_data) or die $dbh->errstr;
$sth->finish();