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

&print_hash_text(0, %$our_hash);

sub print_hash_text {
  my ($indent, %h) = @_;
  foreach (keys %h) {
    print ' 'x$indent,'-', $_, "\n";
    if (%{$h{$_}}) {
      print &print_hash_text($indent+1,%{$h{$_}});
    }
  }
}

sub print_hash_html {
  my ($indent, %h) = @_;
  foreach (keys %h) {
    print '&nbsp;'x$indent,'-', $_, "<br>\n";
    if (%{$h{$_}}) {
      print &print_hash_html($indent+1,%{$h{$_}});
    }
  }
}
[download]

mi_cuenta@yahoo.com