Thanks -- I didn't mean that comment negatively, as I appreciate the help. Your example is fine with your data, but with mine it did appear to go into infinite recursion. And I agree, there is something odd with what's in the hash, but what I didn't understand was why was is OK in Data::Dumper? So I did track down the cause,which is boiled down to the testcase below. This is what strict was complaining about as the string ref error. I fixed the issue, however, I'm not sure why it causes the tree to be displayed so differently for my approach versus yours versus data dumper. I commented strict out so you can see how the display differs, I know strict normally shouldn't be commented out. Also, this is deliberately showing an error - I'm just showing the odd output that results from that error. 
#use strict;
use Data::Dumper;

my %h;
$h{'B'}{1}=1; # this is the error which causes the display 
              # issues
for my $a ('A'..'C'){
   for my $b (0..2){
     for my $c ('a'..'c') {
        $h{$a}{$b}{$c}=1; # error if $h{$a}{$b} exists
     }
   }
}
print "Data Dumper-------------------\n";
print Dumper (\%h);
print "Loop----------------\n";
foreach my $top ( sort keys %h){
    if($top =~ /^\s*$/){$top="<blank>";}
    print "$top\n";
    foreach my $second ( sort keys %{$h{$top}}){
       if($second  =~ /^\s*$/){$second="<blank>";}
       print "...$second\n";
       foreach my $third (sort keys %{$h{$top}{$second}}){
        if($third  =~ /^\s*$/){$third="<blank>";}
           print "......$third\n";
       }
    }
}
print "Print_tree------------------\n";
print_tree(\%h);

sub print_tree {
   my ($tree, $depth) = @_;
   if($depth > 5) {
       print "max depth reached\n";
       return;
   }
   $depth ||= 0;
   my $indent = '...' x $depth;
   for (sort keys %$tree) {
      print($indent, /^\s*\z/ ? "<blank>" : $_, "\n");
      print_tree($tree->{$_}, $depth+1);
   }      
}

[download]

In reply to Re^4: Printing a tree-view of a hash of hashes by pdxperl
in thread Printing a tree-view of a hash of hashes by pdxperl

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.