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")
   {               
       $MO_userdep_error++ if grep { /^\Q$intermediate_array[11]\E$/ } @subscriber_error;
       $MO_network_error++ if grep { /^\Q$intermediate_array[11]\E$/ } @network_error;
       $MO_system_error++  if grep { /^\Q$intermediate_array[11]\E$/ } @system_error;
   }