Select Code to Download

sub hash_to_html ($;$)
{
...
    . join ('', map { "$i  <li>$_</li>\n" . hash_to_html ($x->{$_}, "$
+i    ") } sort (keys (%$x)))
    . "$i</ul>\n";
}

<ul>
  <li>Cows</li>
...
        </ul>
    </ul>
</ul>