$"++,grep{$.=$"+$^,print$.,$/;$^=$",$"=$.}$[..0x10