foreach $key (keys %teamAccts){
    # 
    plog "Key=$key";
    seek($teamAccts{$key},  0, 1); # reset end-of-file error
    my $safekey=$key;
    $safekey =~ s/ /_/g;  # no embedded spaces in tokens
    #while (<$teamAccts{$key}> ) {  # one of the sub files
    while ( readline($teamAccts{$key}) ){
      my $L=$_;
      plog "readline=<$L>";
      my $msgL="$DTG $safekey $L";  # $line should have \n already
      $eventStr .= $msgL;
      #addEvent ($key, $L);
    }
  }