update2: um, this code doesn't work. kindly stop++ing now :) thanks

I've written something like this a couple of times, here's a do-your-own-recursion recipee: 

use Tree::DAG_Node;
use Data::Dumper;
local $Data::Dumper::Indent=1;

use strict;
use warnings;

my $t = tits( \*DATA );
#print Dumper( $t ),$/;
print Dumper( $t->tree_to_lol ), $/;
print map { "$_\n" } @{$t->draw_ascii_tree};


sub tits {
    my( $fh, $d ) = @_;

    $d ||= 2;
    
    my @t = Tree::DAG_Node->new();
    my $depth = 0;
    my @pdepth = 0;

    while(defined( $_ = readline $fh )){
        chomp;
        if(/\A((?:\s{$d})+)(.*)\z/){

            $depth = length $1;

            if( $depth > $pdepth[-1] ){
                my $newd = $t[-1]->new_daughter({ name => $2 });
                push @t, $newd;
                push @pdepth, $depth;
            }
            elsif( $depth == $pdepth[-1] ){
                $t[-1]->new_daughter({ name => $2 });
            }
            else {
                pop @t;
                pop @pdepth;
            }
        } else { # should only happen at root (depth/pdepth both 0)
            $t[0]->name($_);
        }
        $depth = $pdepth[-1];
    }
    return $t[0];
}

__DATA__
Building
  House
    Window
      Glas
        Silicium
    Door
    Roof
      Wood
  Hut
    Pizza
  Garage
    Door

[download]
$VAR1 = [
  [
    [
      [
        [
          'Silicium'
        ],
        'Glas'
      ],
      [
        'Wood'
      ],
      [
        'Pizza'
      ],
      'Window'
    ],
    [
      'Door'
    ],
    'House'
  ],
  'Building'
];

               |                
           <Building>           
               |                
            <House>             
            /---------------\   
            |               |   
        <Window>          <Door>
    /--------+-------\          
    |        |       |          
  <Glas>   <Wood> <Pizza>       
    |                           
<Silicium>

[download]
update1: whooooops, as you can see, Hut , Door and Roof are missing, and Pizza is a child of Window. IGNORE

update3: seeing how i got ++ed besides this code being broken, here it is, fixed up (i also added readmore tags, made clear which update was which): 

use Tree::DAG_Node;
use Data::Dumper;
local $Data::Dumper::Indent=1;

use strict;
use warnings;

my $t = tits( \*DATA );
#print Dumper( $t ),$/;
print Dumper( $t->tree_to_lol ), $/;
print map { "$_\n" } @{$t->draw_ascii_tree};


sub tits {
    my( $fh, $d ) = @_;

    $d ||= 2;
    
    my @t = Tree::DAG_Node->new();
    my $depth = 0;
    my $pdepth = 0;

    while(defined( $_ = readline $fh )){
        chomp;
        if(/\A((?:\s{$d})+)(.*)\z/){

            $depth = length($1)/$d;

            if( $depth > $pdepth ){
                push @t, $t[-1]->new_daughter({ name => $2 });
            }
            elsif( $depth == $pdepth ){
                $t[-1] = $t[-1]->mother->new_daughter({ name => $2 });
            }
            else {
                pop @t until @t == $depth;
                push @t, $t[-1]->new_daughter({ name => $2 });
            }
        } else { # should only happen at root (depth/pdepth both 0)
            $t[0]->name($_);
        }
        $pdepth = $depth;
    }
    return $t[0];
}

__DATA__
Building
  House
    Window
      Glas
        Silicium
    Door
    Roof
      Wood
  Hut
    Pizza
  Garage
    Door

[download]
$VAR1 = [
  [
    [
      [
        [
          'Silicium'
        ],
        'Glas'
      ],
      'Window'
    ],
    [
      'Door'
    ],
    [
      [
        'Wood'
      ],
      'Roof'
    ],
    'House'
  ],
  [
    [
      'Pizza'
    ],
    'Hut'
  ],
  [
    [
      'Door'
    ],
    'Garage'
  ],
  'Building'
];

                    |                    
               <Building>                
           /----------------+-------\    
           |                |       |    
        <House>           <Hut>  <Garage>
    /--------+------\       |       |    
    |        |      |    <Pizza>  <Door> 
 <Window>  <Door> <Roof>                 
    |               |                    
  <Glas>          <Wood>                 
    |                                    
<Silicium>

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
** The third rule of perl club is a statement of fact: pod is sexy.

In reply to Re: tree in hash by PodMaster
in thread tree in hash by Murcia

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.