# ... here user-supplied values was checked

# variant 1, selecting all fields
%newQ = ( id_cust=>$CustID, login => $Q{login}, pass => $Q{pass}, email => $Q{email}, addr1 => $Q{addr1}, addr2 => $Q{addr2}, phone => $Q{phone}, ........... );

# variant 2, force only required fields
%newQ = (%Q, id_cust=>$CustID);