my $SMPP_count = int ((split (/\s+/,`cut -d "|" -f 1,10,13 SMSCDR*$date$hour$minute*.log |grep "Submit|GSM" |grep "$hour:$min:$sec" |sort |uniq -c`)) [1]) + int ((split (/\s+/,`cut -d "|" -f 1,10,13 SMSCDR*$date$hour$minute*.log |grep "Submit|SMPP" |grep "$hour:$min:$sec" |sort |uniq -c`)) [1]); 

##</code><code>##

@ARGV = glob "SMSCDR*$date$hour$minute*.log";
my $SMPP_count;
my $stamp = "$hour:$min:$sec";
while(<>){
    chomp;
    my @ary = (split '|')[0,9,12];
    $SMPP_count++ 
        if  $ary[0] eq $stamp
        and $ary[1] eq "Submit"
        and $ary[2] =~ /(GSM|SMPP)/;
};
print $SMPP_count;