my %totals;
while (<LOGFILE>) {
    $totals{$1}->{$2}++ if m/(...)(...)(...)/;
}