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