# create object
my $xml = new XML::Simple(forcearray => 1);

# read XML file
my $data = $xml->XMLin("../services/xml/".$docid.".xml");

my $pageobj=$data->{page};
delete $data->{page}[$dat];
my $xmlO = $xml->XMLout($data);

open FILE, ">../services/xml/".$docid.".xml" or die;
print FILE $xmlO;
close FILE;