Select Code to Download

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

my %tmpF=();
my @tmpA;
...
#           ^
push(@$fieldobj,\%tmpF);
#               ^