sub _print {
   print ' ' x $_->{dept},'-',$_->{comm},"\n";
}

traverse($in, 0, 0, \&_print);