foreach (<LOGFILE>) {
      @fields = split '*', $_;

      # ... blah, blah, blah ...

   }

##</code><code>##

   %company_count;

   foreach (<LOGFILE>) {
      ($company_name, ...) = split '*', $_;

      $company_count{$company_name} ++;

   }
   
#   foreach sort (keys %company_count) {
   foreach (sort keys %company_count) {
      print $_, " showed up ", $company_count{$_}, " times\n";
   }