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);