my ($name, $date, @rest) = split /\s+(\d+)\s+/;
push @daten, [$name, $date, @rest];