my %tmpF=();
my @tmpA;
push(@tmpA,"0001");
%tmpF->{ID}=@tmpA;
push(@$fieldobj,%tmpF);