Use of implicit split to @_ is deprecated at ./tie-listkeyshash-test.pl line 31.
Use of implicit split to @_ is deprecated at ./tie-listkeyshash-test.pl line 32.

##</code><code>##

my @paths = (
             "C:\\foo\\bar",
             "C:\\foo\\bar\\baz",
             "C:\\car",
             );
print "paths",  Dumper(\@paths);
@paths = sort { scalar (split (/\\/ , $b)) <=>
                scalar (split (/\\/ , $a))     } @paths;
print "paths",  Dumper(\@paths);

##</code><code>##

sub dir_component_count($) {
    my $path = shift;
    my @components = split /\\/ , $path;
    return scalar (@components);
}

@paths = sort { dir_component_count($b) <=>
                dir_component_count($a)     } @paths;