my %seen;

for my $date ( keys %daten ) {
    for my $taetigkeit ( keys %{ $daten{$date} } ) {
        print $taetigkeit,"\n" unless $seen{$taetigkeit}++;
    }
}