my @paths = (
          'C:\\foo\\bar\\baz',
          'C:\\foo\\bar',
          'C:\\car',
          'C:\\c'
        );

##</code><code>##

my @nested = (
          'C:\\foo\\bar\\baz'
);

##</code><code>##

$VAR1 = {
          'C:' => {
                    'c' => {},
                    'car' => {},
                    'foo' => {
                               'bar' => {
                                          'baz' => {}
                                        }
                             }
                  }
        };

##</code><code>##

my @nested = (
          'C:\\c',
          'C:\\car',
          'C:\\foo\\bar\\baz'
);