Select Code to Download

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

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

sub dir_component_count($) {
    my $path = shift;
...

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