sub print_tree {
   push(@_, 0, 0, sub {print ' ' x $_->{dept},'-',$_->{comm},"\n";});
   &traverse;
}

print_tree($in);