my 	@fields = @{$$regex_set{'id_fields'}};
	unshift @fields, '';
	my %args;
	for ( my $i=1; $i<=$#fields ; $i++ )	
	{
		$args{$fields[$i]} = $$i;
	}