for (my $i=0;$i<@lines;$i++){
    my @reihe = split(/ /, $lines[$i]);    
    my @groupmember;
  if($reihe[0] =~ m/GROUP/){
       $groupname = $reihe[1];
         for (my $x=0;$x<@reihe;$x++){
              if($x>1){
               push(@groupmember,$reihe[$x]);
               }
       }
  $groups{$groupname} = [@groupmember]; # Getauscht mit
  }                                          # Dieser Zeile
}