foreach my $field ( @fieldnames )
{
	my $value = $q->param($field);
	clean_data( $value );
	push( @rec, $value );
}