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