my @daten;
  while(my $line = <RE>)
    {
	  chomp $line;
	  $line =~ /^(.*?)\s+(\d{4})\s+(.*)$/; # Name in $1, Jahr in $2
	  my @meta = split /\s+/, $3;         # splitte den Rest
	  push @daten, [$1, $2, @meta];
    }
  close RE;
  &rech(@daten); # zur Auswertung