my $repeated = ' ' x $foo->{'depth'};
my $line = $repeated . $foo->{'name'} . "<br/>\n";