perlでforeachループごとにカウント１づつ足して出力できなかった(;´Д`)しばらく触らないと全部忘れるのな