@paths = sort { $b =~ y/\\// <=> $a =~ y/\\// } @paths;