CODE1 CountCodexMessagex message1 timestamp, timestamp .. .. .. (all timestamp listed found form pair of code and message) CountCodexMessagex message2 timestamp, timestamp .. .. .. (all timestamp listed found form pair of code and message) . . . CODE2 CountCodexMessagex message1 timestamp, timestamp .. .. .. (all timestamp listed found form pair of code and message) CountCodexMessagex message2 timestamp, timestamp .. .. .. (all timestamp listed found form pair of code and message) . . . . . . . . . . actually part of code: if ($Code =~ m/(^EE)(.*)(E$|W$|I$|M$)/) { if ( $entryTestName =~ m/^H_.*/ ) { #print qq(Code: $Code\n); if( defined($hashOfArraysE2E{$Code}{$entryTestName}) ) { #print qq(juhu\n); my $Count = $hashOfArrays{$Code}{$Name}[0]; #print qq(Count: $Count\n); ## increment counter and add entry time to existing sitcode my $arrName = $Code; my $CodeCount = $hashOfArrays{$Code}[1]; #print qq(sitCodeCountBeforeIncr: $CodeCount\n); $codeCount++; #print qq(sitCodeCountAfterIncr: $CodeCount\n); #print qq(CodeCount: $CodeCount\n); ## allocate new value of count to array $hashOfArrays{$arrName}[1] = $CodeCount; #print qq(hashOfArrays{$arrName}[0]: $hashOfArrays{$arrName}[0]\n); push(@{$hashOfArrays{$arrName}},$entryTimeStamp); #print qq(hashOfArrays{$arrName}: @{$hashOfArrays{$arrName}}\n); #print qq(entryTimeStamp: $entryTimeStamp\n); #print qq(existing\n); } else { my $initCount = q(1); push(@{$hashOfArrays{$entrySitCode}{$entryTestName}},[$initCount,$entryTimeStamp]); } }