for my $elem (@{ $tree->{arr}{elem} }) {
   $elem->{mod}{content} = delete($elem->{mod});
}