my $pageobj=$data->{page};
print @$pageobj;
delete $data->{page}[$dat];
print @$pageobj;
my $xmlO = $xml->XMLout($data);
open FILE, ">../services/xml/".$docid.".xml" or die;
print FILE $xmlO;
close FILE;