my ($start , $old , %count);

  while ( <LOGFILE> ) {
    my ($time , $file) = (split / /)[3,6] or next;
    ...
    $old = (0 == ($time - $start) % $period) ? $time : $old;

    push @{ $count{$old}->{$time} }, 1;
  }