The first thing I see is the wasted use of nested references for the children. It'd be far easier to just keep an array reference:

my $rdb={
  'table a' => {
    'aa' => {
      children =>  {
        'table b' =>  [ 'ab' ],
        'table c' =>  [ 'ac' ],
      }
    },
  },
};
[download]

Like so. I think that will make the general approach far easier.

_____________________________________________________
Jeff japhy Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;