perl入学式#5を追加