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