$daten{$datum}{$taetigkeit}=$result[0];
1 2 3 4 5 6 7
my %seen; for my $date ( keys %daten ) { for my $taetigkeit ( keys %{ $daten{$date} } ) { print $taetigkeit,"\n" unless $seen{$taetigkeit}++; } }
2009-08-13T08:59:14 reneeungetestet