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;

}

##</code><code>##

$session_hash($sessio_id}{$user}=$dept_code;

##</code><code>##

	open (HTTP,$access_log)||die ("unable to open $access_log $!\n");
	while (my $line2=<HTTP>) {
		chomp $line2;
		my @fields=split /\s+/, $line2;
		my $session=@fields[6];
			my $session=substr($session,(index($session,"?")+12),(index($session,"|"))-(index($session,"?")+12) );
			if (length($session) ==52) {
				&write_it($session_hash{$session},$line2);
			}