#!c:/perl/bin/perl -w
use strict;
use Data::Dumper;

my $our_hash = {
    'Cows' => {
        'Brown' => undef,
        'Green' => undef,
        'Strawberry' => {
            'Spotted' => undef,
            'Solid' => undef
        },
        'Orange' => undef
    },
    'Dogs' => {
        'Purple' => {
            'Spotted' => undef,
            'Solid' => undef
        }
    }
};

$Data::Dumper::Quotekeys = 0;
for (Dumper $our_hash){
	s/\$VAR1 = //;
	s/{/<UL>/g;
	s/}/<\/UL>/g;
	s/(undef)?[,;]?\n/\n/g;
	s/\n *([^\n]*)=>/\n<LI>$1<\/LI>/g;
	print;
}