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