while ( my $line = <$file> ) {
    next unless $line =~ /TWO/;
    my ($time, $ref) = $line =~ /^(\d\d\d\d-\w\w\w-\d\d \d\d)/).*refs = (\d+)$/;
    ++$stats{$time}{$ref};
}