perl鍋で作ったところまで
再修正