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