After much fun down to 44.

#         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@_
[download]

Update 1: Now down to 43:

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

Update 2: Now down to 42:

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

Update 3: Now 41 (Inspired by Abigail-II):

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