#!perl -l
#      0         1         2         3         4       4 
#      0123456789012345678901234567890123456789012345678
sub g {print$a&&!$_{$_}?$\:'',++$a,") $_-",++$_{$_}for@_}

g(0,0,0,1,1,1,1,1,1,1,1,2,2,2,2,2,2,3,3,4,4,4,4,4,5,5,5,5);