関数型言語とかで書き直してくれないかな?
perlじゃ読みにくい(当然だと思うが)ったらありゃしない