my $greatest = 0;
my $total    = 0;
my @files    = glob "SMSCDR*$date$hour$minute*.log";

foreach my $min ($minute .. $minute+9)
{

        foreach my $sec (@seconds)
        {
#               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]);

                my $SMPP_count;
                my $stamp = "$hour:$min:$sec";
                foreach my $file (@files)
                {
                        open (FILE,"$file");
                        while(<FILE>)
                        {
                                chomp;
                                my @ary = (split /\s|\|/, $_) [3,21,24];
                                $SMPP_count++ if  $ary[0] eq $stamp and $ary[1] eq "Submit" and $ary[2] =~ /(GSM|SMPP)/;
                        };
                }
                if ($SMPP_count > $greatest)
                {
                        $greatest = $SMPP_count;
                }
                $total = $total + $SMPP_count;
                print "$hour:$min:$sec","= $SMPP_count","\t",$total,$/;
        }
}
print $greatest,$/;

my $t1 = Benchmark->new;
my $td = timediff($t1, $t0);
print "the code took:",timestr($td),"\n";