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