sub post_evaluate_action_time
{
  my %hash;
open(my $LOG, 'C:\aokapplication') or die "$!";
LOOP1: while(<$LOG>) {
   my $user;
   my $str;
   if (/Next State: risk_did_persist$/) {
	   LOOP2: while (<$LOG>) {
		   #if (/<USERID>\s+(\S+)$/) 
           if ($str =~ /<USERID>(.*?)<\/USERID>/)
		 {
             $user = $1;
         	 #$str=~/(?:.*<USERID>)(.*)(?:<\/USERID>.*$)/;
			 #print $str;
		 	 $hash{$user} = {SessionID => '', Time => 0 };
		 }
		   else {
			     next LOOP2;
		        }

LOOP3: while (<$LOG>) {
	if (/ErrorMsg:SESSIONID :\s+(\S+)$/) {
           $hash{$user}{SessionID} = $1;
           next LOOP3;
	}
	elsif (/postEvaluate: End-to-end time in millisecond (\S+)$/) {
		$hash{$user}{Time} += $1;
               next LOOP1;
	        }
          }
	   }
   }
}

close ($LOG);
use Data::Dumper;
print Dumper \%hash;
}

#evaluate_risk_action_time();
print "The post_evaluate_time function is called here\n";
post_evaluate_action_time();

2009-02-09 00:01:58,970 [TP-Processor28] INFO  FlowController,(TP-Processor28:121) - Next State: risk_did_persist
2009-02-09 00:01:58,970 [TP-Processor28] DEBUG BaseRedirectController,(TP-Processor28:116) - [com.arcot.aok.web.controllers.rf.RFRiskAssessmentController]: : Next state: persistdid.htm
2009-02-09 00:01:59,033 [TP-Processor28] DEBUG RFSyncClientDIDController,(TP-Processor28:30) - Entered com.arcot.aok.web.controllers.rf.RFSyncClientDIDController.preOnSubmit()
2009-02-09 00:01:59,033 [TP-Processor28] DEBUG RiskFactory,(TP-Processor28:140) - The object is already created
2009-02-09 00:01:59,033 [TP-Processor28] DEBUG RFSyncClientDIDController,(TP-Processor28:30) - Secondary Auth entry class type: java.lang.Integer
2009-02-09 00:01:59,033 [TP-Processor28] DEBUG RiskXActionAPI,(TP-Processor28:480) - updateAttributes: XML Request [<POLICYREQ><MESSAGEID>1</MESSAGEID><CALLERID>4 - MLS - MLS: com.arcot.aok.web.controllers.rf.RFSyncClientDIDController|1:2594791</CALLERID><SESSIONID>1:2594791</SESSIONID><AUTHRESULT>UNSPECIFIED</AUTHRESULT><IDENTITY><USERID>01394498</USERID><GROUP>MLS</GROUP><SUBGROUP>SUBGROUP2</SUBGROUP></IDENTITY><LOCATION><IPADDRESS>69.107.99.223</IPADDRESS></LOCATION><DEVICEID type="http">o2S0nuXNATYDqL235Vz/foPkL+WifrsaN9QCIyKuTX1bHZi0ojKgrZBxH6qfcbRy</DEVICEID>us&quot;}}}</DEVICESIG></POLICYREQ>]
2009-02-09 00:01:59,033 [TP-Processor28] DEBUG SocketPool,(TP-Processor28:32) - borrowSocket: Trying to get lock localCallGetConnectionFlag false callGetConnectionFlag true
2009-02-09 00:01:59,033 [TP-Processor28] DEBUG SocketPool,(TP-Processor28:37) - borrowSocket: In if(callGetConnectionFlag)
2009-02-09 00:01:59,033 [TP-Processor28] DEBUG SocketPool,(TP-Processor28:68) - borrowSocket: Calling borrowObject
2009-02-09 00:01:59,033 [TP-Processor28] DEBUG PoolableSocketFactory,(TP-Processor28:195) - activateObject not supported : No action taken on Socket[addr=/172.16.64.30,port=7680,localport=4723]
2009-02-09 00:01:59,033 [TP-Processor28] DEBUG SocketPool,(TP-Processor28:70) - borrowSocket: Out of borrowObject
2009-02-09 00:01:59,033 [TP-Processor28] DEBUG SocketPool,(TP-Processor28:78) - borrowSocket: Calling Notify
2009-02-09 00:01:59,064 [TP-Processor28] DEBUG PoolableSocketFactory,(TP-Processor28:184) - Validating Object:Socket[addr=/172.16.64.30,port=7680,localport=4723]
2009-02-09 00:01:59,064 [TP-Processor28] INFO  PoolableSocketFactory,(TP-Processor28:199) - passivateObject called on Socket[addr=/172.16.64.30,port=7680,localport=4723]
2009-02-09 00:01:59,064 [TP-Processor28] DEBUG PoolableSocketFactory,(TP-Processor28:184) - Validating Object:Socket[addr=/172.16.64.30,port=7680,localport=4723]
2009-02-09 00:01:59,064 [TP-Processor28] DEBUG RiskXActionAPI,(TP-Processor28:486) - updateAttributes: Response Packet [<POLICYSERVERDOC DATATYPE="XML"><POLICYRES><MESSAGEID>2088926475</MESSAGEID><SESSIONID>1:2594791</SESSIONID><ACTION></ACTION><RESPONSECODE>-1</RESPONSECODE><ERRORSTRING></ERRORSTRING><ERRORCODE>0</ERRORCODE><TRANSACTIONID>1:2594792</TRANSACTIONID><RISKSCORE>0</RISKSCORE><DEVICEID>o2S0nuXNATYDqL235Vz/foPkL+WifrsaN9QCIyKuTX1bHZi0ojKgrZBxH6qfcbRy</DEVICEID><RISKDETAIL></RISKDETAIL></POLICYRES></POLICYSERVERDOC>]
2009-02-09 00:01:59,064 [TP-Processor28] DEBUG ResponseMessageParser,(TP-Processor28:214) - Error code:0 ErrorMsg:TRANSACTIONID : 1:2594792
2009-02-09 00:01:59,064 [TP-Processor28] DEBUG ResponseMessageParser,(TP-Processor28:214) - Error code:0 ErrorMsg:SESSIONID : 1:2594791
2009-02-09 00:01:59,095 [TP-Processor28] DEBUG ResponseMessageParser,(TP-Processor28:259) - ArcotPacket MessageID [2]
2009-02-09 00:01:59,095 [TP-Processor28] INFO  RiskXActionAPI,(TP-Processor28:155) - postEvaluate: End-to-end time in millisecond 62

Here i need to take the userid from the xml string and rest are same. I tried some option but the function does not do anything.
Am i doing anything wrong here.