/,/,$a&&$'>$a?say$`:0,$a=$' for sort<>