mapが上手く使えてない
finish perl-2