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

... later in the code...

traverse($in, 0, 0, sub {$sth->execute($dept, $comm)});