#         1         2         3         4         5         
#1234567890123456789012345678901234567890123456789012345678 
#map{$j=0 if$l!=$_&&print'';print++$i.") $_-".++$j;$l=$_}@_
#map{print$j=''if$l!=$_;print++$i.") $_-".++$j;$l=$_}@_
#map{print''if!$A{$_};print++$i.") $_-".++$A{$_}}@_
 print$A{$_}?'':$/,++$i.") $_-".++$A{$_}for@_

##</code><code>##

 print!$A{$_}&&$/,++$i.") $_-".++$A{$_}for@_

##</code><code>##

 print!$A{$_}++&&$/,++$i.") $_-$A{$_}"for@_

##</code><code>##

 print$/x!$A{$_}++,++$i.") $_-$A{$_}"for@_