Average Time Perl

#!/usr/perl/bin/perl

open(FHD, "C:\\wflogs\\WorkflowServerLog.txt") || die("can't open the file\n");

open(OFH, ">c:\\wflogs\\AverageTimeLog.txt") || die("cna't open the file\n");

my %hbegincount;
my %hendcount;

my %hbegintime;
my %hendtime;

my $lineCount = 0;

while($line = <FHD>)
{
$lineCount++;
if($lineCount < 1000000)
{
 chomp($line);
 my ($r1,$r2,$r3,$r4) =  split(/\|/, $line);
 $r1=~s/^\s+|\s+$//g;
 $r2=~s/^\s+|\s+$//g;
 $r3=~s/^\s+|\s+$//g;
 $r4=~s/^\s+|\s+$//g;

# print "$r1,$r2,$r3,$r4 \n";

        if($r4=~/begin$/i)
 { 
  my ($r41,$r42) =  split(/\s+/, $r4);
#print "begin :$r41, $r42 \n";
  $hbegincount{$r41}++;
  my $cltime = &CalTime($r1);
  $hbegintime{$r41} += $cltime;
   
 }
 elsif($r4=~/end$/i)
 {
  my ($r41,$r42) =  split(/\s+/, $r4);
  
  if($hbegincount{$r41} > $hendcount{$r41})
  {
   $hendcount{$r41}++;
   my $cltime = &CalTime($r1);
   $hendtime{$r41} += $cltime;
  } 
 }
 else
 {
  next;
 }
}
}
close(FHD);

while( my ($key, $value) = each %hbegintime )
{
#print "key : $key, $value \n";
#print  "count : $hbegincount{$key} == $hendcount{$key}\n";
 if($hbegincount{$key} == $hendcount{$key})
 {
  my $totaltime = $hendtime{$key} - $value;
  my $var = $totaltime / $hbegincount{$key};
  print OFH "average : $key,$var, $totaltime, $hbegincount{$key} \n";
       #print "average : $key,$var, $totaltime, $hbegincount{$key} \n";
 }
 else
 {
  my $diffcount = $hbegincount{$key} - $hendcount{$key};
  print OFH "diff : $key,$diffcount\n";
       #print "diff : $key,$diffcount\n";  
 }
}
close(OFH);

sub CalTime()
{
 my ($t1) = @_;
 my ($t11,$t12,$t13) =  split(/\:/, $t1);
 my ($t131,$t132) =  split(/\./, $t13);
 my $totaltime;
        $totaltime = $t11 * 3600 * 1000 + $t12 * 60 * 1000 + $t131 * 1000 + $t132;
 return $totaltime;
}