$a[$=+=$&cmp$_]|=$"x$x++.$_,//for<>=~/./g;$_&&print$_,$/for@a