Okay, I found a structure that doesn't get processed by the code well. On inspection, it looks like it should though. It follows shortly...It's just a Data::Dumper dump, so it might be a bit hard to read. 
$rdb = {
  '/employee' => {
    'aa' => {
      'data' => {
        'lastName' => 'BALL',
        'key' => '000126'
      },
      'parent' => '',
      'children' => {
        '/employee/earningStatement' => {
          'ah' => {
            'data' => {
              'checkType' => 'payCheck'
            },
            'parent' => 'aa',
            'children' => {
              '/employee/earningStatement/earningBase' => {
                'al' => {
                  'data' => {
                    'gross' => '790.00',
                    'net' => '405.92',
                    'ckDate' => '20000126'
                  },
                  'parent' => 'ah'
                }
              },
              '/employee/earningStatement/earningPay' => {
                'aj' => {
                  'data' => {
                    'hours_earningPay' => '80.00'
                  },
                  'parent' => 'ah'
                },
                'ak' => {
                  'data' => {
                    'hours_earningPay' => ''
                  },
                  'parent' => 'ah'
                }
              }
            }
          },
          'ac' => {
            'data' => {
              'checkType' => 'payCheck'
            },
            'parent' => 'aa',
            'children' => {
              '/employee/earningStatement/earningBase' => {
                'ag' => {
                  'data' => {
                    'gross' => '790.00',
                    'net' => '405.36',
                    'ckDate' => '20000105'
                  },
                  'parent' => 'ac'
                }
              },
              '/employee/earningStatement/earningPay' => {
                'ae' => {
                  'data' => {
                    'hours_earningPay' => '80.00'
                  },
                  'parent' => 'ac'
                },
                'af' => {
                  'data' => {
                    'hours_earningPay' => ''
                  },
                  'parent' => 'ac'
                }
              }
            }
          }
        }
      }
    }
  },
  '/employee/earningStatement/earningBase' => {
    'al' => {},
    'ag' => {}
  },
  '/employee/earningStatement/earningPay' => {
    'aj' => {},
    'ak' => {},
    'ae' => {},
    'af' => {}
  },
  '/employee/earningStatement' => {
    'ah' => {},
    'ac' => {}
  }
};
$rdb->{'/employee/earningStatement/earningBase'}{'al'} = $rdb->{'/empl
+oyee'}{'aa'}{'children'}{'/employee/earningStatement'}{'ah'}{'childre
+n'}{'/employee/earningStatement/earningBase'}{'al'};
$rdb->{'/employee/earningStatement/earningBase'}{'ag'} = $rdb->{'/empl
+oyee'}{'aa'}{'children'}{'/employee/earningStatement'}{'ac'}{'childre
+n'}{'/employee/earningStatement/earningBase'}{'ag'};
$rdb->{'/employee/earningStatement/earningPay'}{'aj'} = $rdb->{'/emplo
+yee'}{'aa'}{'children'}{'/employee/earningStatement'}{'ah'}{'children
+'}{'/employee/earningStatement/earningPay'}{'aj'};
$rdb->{'/employee/earningStatement/earningPay'}{'ak'} = $rdb->{'/emplo
+yee'}{'aa'}{'children'}{'/employee/earningStatement'}{'ah'}{'children
+'}{'/employee/earningStatement/earningPay'}{'ak'};
$rdb->{'/employee/earningStatement/earningPay'}{'ae'} = $rdb->{'/emplo
+yee'}{'aa'}{'children'}{'/employee/earningStatement'}{'ac'}{'children
+'}{'/employee/earningStatement/earningPay'}{'ae'};
$rdb->{'/employee/earningStatement/earningPay'}{'af'} = $rdb->{'/emplo
+yee'}{'aa'}{'children'}{'/employee/earningStatement'}{'ac'}{'children
+'}{'/employee/earningStatement/earningPay'}{'af'};
$rdb->{'/employee/earningStatement'}{'ah'} = $rdb->{'/employee'}{'aa'}
+{'children'}{'/employee/earningStatement'}{'ah'};
$rdb->{'/employee/earningStatement'}{'ac'} = $rdb->{'/employee'}{'aa'}
+{'children'}{'/employee/earningStatement'}{'ac'};

[download]
The starting key is "/employee". I'm pretty sure the sequences should be:
aa ah al aj
aa ah al ak
aa ac ag ae
aa ac ag af

[download]
Change $VAR1 to $rdb before pasting back into the problem.

In reply to Re: Q: So you think you're good with structures? A: Umm... Yes! by clintp
in thread So you think you're good with structures? by clintp

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.