パターンの整形, $caseをlistで分解, foreachのスタイル修正