##

 my $pageobj=$data->{page}[$pagenumber];
 my $fieldobj=$pageobj->{field};

##

##

[
{ 'value' => [ 'test' ], 'ID' => [ '0000001' ] },
{ 'value' => [ 'test' ], 'ID' => [ '0000002' ] },
{ 'value' => [ 'test' ], 'ID' => [ '0000003' ] },
{ 'value' => [ 'test' ], 'ID' => [ '0000004' ] }
]

##

##

my $pageobj=$data->{page}[$pagenumber];
my $fieldobj=$pageobj->{field};
my %tmpF=();
my @tmpA;
push(@tmpA,"0001");
%tmpF->{ID}=@tmpA;
push(@$fieldobj,%tmpF);