while (<LOG>) {
    my @part = (split ' ', $_)[5,8]; 
    $hash{$part[0]}->[0] ++;             # increase the count. 
    $hash{$part[0]}->[1] += $part[1];    # increase the sum.
}