$ct -= @files;
  while (my $line = <F>) { ... } # Old code without $ct
  $ct += @files;