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";			
		} 
	}