my $key;   
   print "$key = ";   #  zeile 181
   my @vals = ();
   foreach my $val (@{$params{$key}{values}})   #  Zeile 183
   {
#   my $str = $val;
      if ($params{$key} == "GENLIST")
      {
         $genlist = $params{$key}{values}[0];
      }
   }