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

##</code><code>##

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