sub make_session {

	my ($u,$a,$s)=@_;

	%session_hash={
		user=>$u,
		dept=>$a
	};
		$s=\%session_hash;

}

##</code><code>##

&make_session($user,$dept,$sid);

##</code><code>##

open (HTTP,$access_log)||die ("unable to open $access_log $!\n");
	while (my $line2=<HTTP>) {
		chomp;
		my @access_fields = split /\s/, $line2;
			my $session=@access_fields[6];
			y $session=substr($session,(index($session,"?")+12),(index($session,"|")-1)-(index($session,"?")+12) );
			if (exists($$session_id{'user_id'})) {
			print "match found\n";			
		} 
	}