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

##</code><code>##

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