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;