...
  if ($action eq 'start') {
    $active{$jobtype}{$logfile} = 1;
  } elsif ($action eq 'finish') {
    delete $active{$jobtype}{$logfile};
  }
  ...
  my $split_count = keys %{ $active{'split'} };
  ...