14:34 >perl 1620_SoPW.pl
(0) @queue:
$VAR1 = [
          [
            './test',
            {}
          ]
        ];
--------------------------------------------------
(0) $next:
$VAR1 = [
          './test',
          {}
        ];
==================================================
(1) @queue:
$VAR1 = [
          [
            'test\\dir1',
            {}
          ],
          [
            'test\\file1',
            $VAR1->[0][1]
          ],
          [
            'test\\file2',
            $VAR1->[0][1]
          ]
        ];
--------------------------------------------------
(1) $next:
$VAR1 = [
          'test\\dir1',
          {}
        ];
==================================================
(2) @queue:
$VAR1 = [
          [
            'test\\dir1\\file3',
            {}
          ],
          [
            'test\\file1',
            {
              'dir1' => $VAR1->[0][1]
            }
          ],
          [
            'test\\file2',
            $VAR1->[1][1]
          ]
        ];
--------------------------------------------------
(2) $next:
$VAR1 = [
          'test\\dir1\\file3',
          {}
        ];
==================================================
(3) @queue:
$VAR1 = [
          [
            'test\\file1',
            {
              'dir1' => {
                          'file3' => undef
                        }
            }
          ],
          [
            'test\\file2',
            $VAR1->[0][1]
          ]
        ];
--------------------------------------------------
(3) $next:
$VAR1 = [
          'test\\file1',
          {
            'dir1' => {
                        'file3' => undef
                      }
          }
        ];
==================================================
(4) @queue:
$VAR1 = [
          [
            'test\\file2',
            {
              'dir1' => {
                          'file3' => undef
                        },
              'file1' => undef
            }
          ]
        ];
--------------------------------------------------
(4) $next:
$VAR1 = [
          'test\\file2',
          {
            'dir1' => {
                        'file3' => undef
                      },
            'file1' => undef
          }
        ];
==================================================
(5) @queue:
$VAR1 = [];
--------------------------------------------------
RESULT:
$VAR1 = {
          'test' => {
                      'file1' => undef,
                      'file2' => undef,
                      'dir1' => {
                                  'file3' => undef
                                }
                    }
        };

14:34 >