foreach $field (@fields){
       ${$field}  = $q->param($field);
       ${$field}  = filter(${$field});
       $record   .= "\::${$field}";