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

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