If you use DBIx::Recordset which is built on top of DBI, you can commit form data to database in one line of DBIx::Recordset:

@names = $q->param();
map { $fdat{$_}=$q->param($_} } @names;

DBIx::Recordset->Insert({%connect_dsn,%fdat});
[download]

For more information on DBIx::Recordset, visit: http://perl.apache.org/embperl/index.html