print((reduce { $a . ($$...$$ ? ' => ' : ',') . $b } %hash), $/);