use strict;
use warnings;
use Data::Dumper

my %count;

open FILE, "test.log";

while (<FILE>){
	my @fields = split;
	$count{$fields[1]}++;
}

print Dumper \%count;

##</code><code>##

Global symbol "%count" requires explicit package name at test.pl line 11.
Global symbol "%count" requires explicit package name at test.pl line 14.
Execution of test.pl aborted due to compilation errors.