my $tree = {

arr => {
  elem => [
    {
      mod => { content => 'mstring1' },    <------
      rp  => 'rstring1',
      subarr => {
        subelem => [
          {content=>'...'}, {content=>'...'},
        ]
      }
    },
    {
      mod => { content => 'mstring2' },    <------
      rp  => 'rstring2',
      subarr => {
        subelem => [
          {content=>'...'}, {content=>'...'},
        ]
      }
    },
  ],
}

};