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