foreach my $field (grep { $_ ne 'id' } $q->param) {