#!/usr/bin/perl -w

use strict ;
use warnings ;
use Data::Dumper ;

my %data = () ;
while( my $line = <DATA> ) {
  if( my ( $model , $color ) = ( $line =~ m/^\d{4}\.\d{2}\.\d{2}\s+\d{2}:\d{2}:\d{2}\s+(\S+)\s+(\S+)/ ) ) {
    if( ! exists $data{$model} ) {
      $data{$model} = {} ;
    }
    if( ! exists $data{$model}->{$color} ) {
      $data{$model}->{$color} = 0 ;
    }
    $data{$model}->{$color}++ ;
  }
}

$Data::Dumper::Indent = 1 ;
printf "Data:\n%s\n" , Dumper( \%data ) ;

exit ;

__DATA__
2010.09.15	06:01:55	TZ_19_C	blau
2010.09.15	06:02:15	FR_90_X	schwarz
2010.09.15	06:05:15	TZ_19_C	gelb
2010.09.15	06:05:35	TZ_19_B	rot
2010.09.15	06:07:22	TZ_19_C	blau
2010.09.15	06:07:42	FR_90_X	rosa
2010.09.15	06:09:29	TZ_19_B	rot
2010.09.15	06:09:49	FR_90_X	rosa
2010.09.15	06:11:36	TZ_19_C	gelb
2010.09.15	06:11:55	TZ_19_C	blau