while (<LOG>) {
   # Assume name of program is in $_
   chomp;
   $hash{$_}++;
}