sub deletenode
{
   $node = shift;
   if ($node->{'child'}) {
     foreach ($node->{'child'}) {
        deletenode($_);
     }
   }
   else {
     $node = {};  
   }
}