foreach my $Intermediate_file (@Intermediate_files)
{
	open (INTER,"$Intermediate_file") or print "cannot open file\n";
	while (my $intermediate_line = <INTER>)
	{
		chomp $intermediate_line;
		my @intermediate_array = split(/\|/,$intermediate_line);
		if ($intermediate_array[12] eq "GSM" && $intermediate_array[9] eq "MSubmit")
		{
			$intermediate_MO_cnt++;
		}
		if ($intermediate_array[12] eq "GSM" && $intermediate_array[9] eq "MSubmit" && $intermediate_array[7] eq "MsgAccepted")
		{
			$total_MO_success++;
		}
		if ($intermediate_array[12] eq "SMPP" && $intermediate_array[9] eq "ESubmit")
		{
			$intermediate_AO_cnt++;
		}
		if ($intermediate_array[12] eq "SMPP" && $intermediate_array[9] eq "ESubmit" && $intermediate_array[7] eq "MsgAccepted")
		{
			$total_AO_success++;
		}
		if ($intermediate_array[12] eq "GSM" && $intermediate_array[13] eq "SMPP")
		{
			$total_AT++;
		}
#---------------------------------------ERROR SECTION-----------------------------------------------------------------------------#
		if ($intermediate_array[12] eq "GSM")
		{
			if (any { /^\Q$intermediate_array[11]\E$/ } @subscriber_error)
			{
				$MO_userdep_error++;
			}
			elsif (any { /^\Q$intermediate_array[11]\E$/ } @network_error)
			{
				$MO_network_error++;
			}
			elsif (any { /^\Q$intermediate_array[11]\E$/ } @system_error)
			{
				$MO_system_error++;
			}
		}
		if ($intermediate_array[12] eq "SMPP")
		{
			if($intermediate_array[11]=~ /SMSC/)
			{
				$AO_ESMEdep_error++ if any { /^\Q$intermediate_array[11]\E$/ } @subscriber_error;
			}
			elsif (any { /^\Q$intermediate_array[11]\E$/ } @network_error)
			{
				$AO_network_error++;
			}
			elsif (any { /^\Q$intermediate_array[11]\E$/ } @system_error)
			{
				$AO_system_error++;
			}
		}
#---------------------------------END OF ERROR SECTION-----------------------------------------------------------------------------#
	}
}
print "Completed the Imtermediate section....\n";
#-------------------------------------POSTPAID SECTION-----------------------------------------------------------------------------#

foreach my $Postpaid_file (@Postpaid_files)
{
	open (POST ,"$Postpaid_file")     or print "cannot open file\n";
	while(my $cdr_post_line = <POST>)
	{
		chomp $cdr_post_line;
		my @cdr_post_array = split(/\|/,$cdr_post_line);
		if ($cdr_post_array[12] eq "GSM" && $cdr_post_array[9] eq "Submit")
		{
			$cdr_post_MO_cnt++ if any { /^\Q$cdr_post_array[11]\E$/ } @MOresp_error;
		}
		if ($cdr_post_array[12] eq "SMPP" && $cdr_post_array[9] eq "Submit")
		{
			$cdr_post_AO_cnt++ if any { /^\Q$cdr_post_array[11]\E$/ } @MOresp_error;
		}
		if ($cdr_post_array[12] eq "GSM" && $cdr_post_array[13] eq "GSM" && $cdr_post_array[9] eq "Submit")
		{
			$total_MT_P2P++ unless any { /^\Q$cdr_post_array[11]\E$/ } @MOresp_error;
		}
		if ($cdr_post_array[12] eq "GSM" && $cdr_post_array[13] eq "GSM" && $cdr_post_array[9] eq "Submit" && $cdr_post_array[7] eq "Delivered")
		{
			$total_MT_P2P_success++;
		}
		if ($cdr_post_array[12] eq "SMPP" && $cdr_post_array[13] eq "GSM" && $cdr_post_array[9] eq "Submit")
		{
			$A2P_FDA_count++;
		}
		if ($cdr_post_array[12] eq "SMPP" && $cdr_post_array[13] eq "GSM" && $cdr_post_array[9] eq "Submit" && $cdr_post_array[11] eq "SMSC_no_error")
		{
			$A2P_FDA_success_count++;
		}
		if ($cdr_post_array[12] eq "SMPP" && $cdr_post_array[13] eq "GSM" && $cdr_post_array[9] eq "Submit")
		{
			$total_MT_A2P++;
		}
		if ($cdr_post_array[12] eq "SMPP" && $cdr_post_array[13] eq "GSM" && $cdr_post_array[9] eq "Submit" && $cdr_post_array[7] eq "Delivered")
		{
			$total_MT_A2P_success++;
		}
		if ($cdr_post_array[12] eq "GSM" && $cdr_post_array[13] eq "SMPP" && $cdr_post_array[7] eq "Delivered")
		{
			$total_AT_success++;
		} 
#----------------------------POST PAID ERROR SECTION-----------------------------------------------------------------------------#
		if ($cdr_post_array[12] eq "GSM")
		{
			if (any { /^\Q$cdr_post_array[11]\E$/ } @network_error)
			{
				$MO_network_error++;
			}
			elsif (any { /^\Q$cdr_post_array[11]\E$/ } @subscriber_error)
			{
				$MO_userdep_error++;
			}
			elsif (any { /^\Q$cdr_post_array[11]\E$/ } @system_error)
			{
				$MO_system_error++;
			}
		}
		if ($cdr_post_array[12] eq "SMPP")
		{
			if($cdr_post_array[11]=~ /SMSC/)
			{
				$AO_ESMEdep_error++ if any { /^\Q$cdr_post_array[11]\E$/ } @subscriber_error;
			}
			elsif (any { /^\Q$cdr_post_array[11]\E$/ } @network_error)
			{
				$AO_network_error++;
			}
			elsif (any { /^\Q$cdr_post_array[11]\E$/ } @system_error)
			{
				$AO_system_error++;
			}
		}
		if ($cdr_post_array[12] eq "GSM" && $cdr_post_array[13] eq "GSM")
		{
			if (any { /^\Q$cdr_post_array[11]\E$/ } @network_error)
			{
				$MT_P2P_network_error++;
			}
			elsif (any { /^\Q$cdr_post_array[11]\E$/ } @subscriber_error)
			{
				$MT_P2P_userdep_error++;
			}
			elsif (any { /^\Q$cdr_post_array[11]\E$/ } @system_error)
			{
				$MT_P2P_system_error++;
			}
		}
		if ($cdr_post_array[12] eq "SMPP" && $cdr_post_array[13] eq "GSM")
		{
			if (any { /^\Q$cdr_post_array[11]\E$/ } @network_error)
			{
				$MT_A2P_network_error++;
			}
			elsif (any { /^\Q$cdr_post_array[11]\E$/ } @subscriber_error)
			{
				$MT_A2P_userdep_error++;
			}
			elsif (any { /^\Q$cdr_post_array[11]\E$/ } @system_error)
			{
				$MT_A2P_system_error++;
			}
		}
		if ($cdr_post_array[12] eq "GSM" && $cdr_post_array[13] eq "SMPP")
		{
			if (any { /^\Q$cdr_post_array[11]\E$/ } @network_error)
			{
				$AT_network_error++;
			}
			elsif (any { /^\Q$cdr_post_array[11]\E$/ } @subscriber_error)
			{
				$AT_userdep_error++;
			}
			elsif (any { /^\Q$cdr_post_array[11]\E$/ } @system_error)
			{
				$AT_system_error++;
			}
		}
#=====================================Submission failure Post paid section===============================================#
		if ($cdr_post_array[11] eq "$db_user_errors[0]")
		{
			$user_first_error++;
		}
		elsif ($cdr_post_array[11] eq "$db_user_errors[1]")
                {
                        $user_second_error++;
                }
		elsif ($cdr_post_array[11] eq "$db_user_errors[2]")
                {
                        $user_third_error++;
                }
		elsif ($cdr_post_array[11] eq "$db_user_errors[3]")
                {
                        $user_forth_error++;
                }
		elsif ($cdr_post_array[11] eq "$db_user_errors[4]")
                {
                        $user_fifth_error++;
                }
		if ($cdr_post_array[11] eq "$db_ESME_errors[0]")
                {
                        $ESME_first_error++;
                }
                elsif ($cdr_post_array[11] eq "$db_ESME_errors[1]")
                {
                        $ESME_second_error++;
                }
                elsif ($cdr_post_array[11] eq "$db_ESME_errors[2]")
                {
                        $ESME_third_error++;
                }
                elsif ($cdr_post_array[11] eq "$db_ESME_errors[3]")
                {
                        $ESME_forth_error++;
                }
                elsif ($cdr_post_array[11] eq "$db_ESME_errors[4]")
                {
                        $ESME_fifth_error++;
                }
   		if ($cdr_post_array[11] eq "$db_system_errors[0]")
                {
                        $system_first_error++;
                }
                elsif ($cdr_post_array[11] eq "$db_system_errors[1]")
                {
                        $system_second_error++;
                }
                elsif ($cdr_post_array[11] eq "$db_system_errors[2]")
                {
                        $system_third_error++;
                }
                elsif ($cdr_post_array[11] eq "$db_system_errors[3]")
                {
                        $system_forth_error++;
                }
                elsif ($cdr_post_array[11] eq "$db_system_errors[4]")
                {
                        $system_fifth_error++;
                }	
		if ($cdr_post_array[11] eq "$db_network_errors[0]")
                {
                        $network_first_error++;
                }
                elsif ($cdr_post_array[11] eq "$db_network_errors[1]")
                {
                        $network_second_error++;
                }
                elsif ($cdr_post_array[11] eq "$db_network_errors[2]")
                {
                        $network_third_error++;
                }
                elsif ($cdr_post_array[11] eq "$db_network_errors[3]")
                {
                        $network_forth_error++;
                }
                elsif ($cdr_post_array[11] eq "$db_network_errors[4]")
                {
                        $network_fifth_error++;
                }

#==============================Delivery failure postpaid section===============================================#
		if ($cdr_post_array[11] eq "$del_user_errors[0]")
		{
			$del_user1_error++;
		}
                elsif ($cdr_post_array[11] eq "$del_user_errors[1]")
                {
                        $del_user2_error++;
                }
                elsif ($cdr_post_array[11] eq "$del_user_errors[2]")
                {
                        $del_user3_error++;
                }
                elsif ($cdr_post_array[11] eq "$del_user_errors[3]")
                {
                        $del_user4_error++;
                }
                elsif ($cdr_post_array[11] eq "$del_user_errors[4]")
                {
                        $del_user5_error++;
                }
                if ($cdr_post_array[11] eq "$del_network_errors[0]")
                {
                        $del_network1_error++;
                }
                elsif ($cdr_post_array[11] eq "$del_network_errors[1]")
                {
                        $del_network2_error++;
                }
                elsif ($cdr_post_array[11] eq "$del_network_errors[2]")
                {
                        $del_network3_error++;
                }
                elsif ($cdr_post_array[11] eq "$del_network_errors[3]")
                {
                        $del_network4_error++;
                }
                elsif ($cdr_post_array[11] eq "$del_network_errors[4]")
                {
                        $del_network5_error++;
                }
                if ($cdr_post_array[11] eq "$del_system_errrors[0]")
                {
                        $del_system1_error++;
                }
                elsif ($cdr_post_array[11] eq "$del_system_errrors[1]")
                {
                        $del_system2_error++;
                }
                elsif ($cdr_post_array[11] eq "$del_system_errrors[2]")
                {
                        $del_system3_error++;
                }
                elsif ($cdr_post_array[11] eq "$del_system_errrors[3]")
                {
                        $del_system4_error++;
                }
                elsif ($cdr_post_array[11] eq "$del_system_errrors[4]")
                {
                        $del_system5_error++;
                }
#---------------------------------END OF ERROR SECTION-----------------------------------------------------------------------------#

	}
}
print "Completed postpaid section....\n";