foreach $id (@row) {
#if ($id != 113) {
print "id = $id";
         use Fcntl 'O_RDWR';
         tie @array, 'Tie::File', "../XML/$id.xml", mode => O_RDWR; 
         splice @array, 2, 0, "<database_id=\"gl:redunant\">";
         untie @array;