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

                      }

##</code><code>##

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

##</code><code>##

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