Help for this page
%tmpF->{ID}=@tmpA; push(@$fieldobj,%tmpF);
$tmpF{ID} = \@tmpA; push(@$fieldobj, \%tmpF);