use strict;
use warnings;
use Data::Dumper

my %count;

open FILE, "test.log";

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

print Dumper \%count;