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