my %handles;
for my $dept ( @departments ) {
  $handles{ $dept } = IO::File->new;
  $handles{ $dept }->open( "> $logdir/$dept.log" ) or die "Open failed: $!\n";
}

while( <INLOG> ) {
  my $dept = divine_department( $_ );
  $handles{ $dept }->print( $_ );
}