sub write_it{
my ($dept,$output)=@_;
my $output_file=$dept."_access.log";
open DATA,">> $output_file")||die ("unable to open $output_file $!\n");
print DATA $output."\n";
close DATA;

}