$/=<>!~$";print$_,++$i%$'?$":'
'for sort glob<>