<perl>
              @liste;
              $"=' ';
              get "gpstat==0 sort=gpkat1,gpkat2", "gpurl";
 
              while (get_next ("gpurl"))
              {
                if (index(" @liste "," $gpkat1 ")<0)
                {
                push (@zahl, $i) if $_loop != 0;
                $i=0; 
 
                push (@liste, $gpkat1);

                $i++;
                }else
                {
                $i++;
                }
              }

              push (@zahl, $i);

              ##### Ausgabe der Liste in der nur jedes Element 1x vorkommt
              $x=0;
              for (@liste)
              {
              out "<br><a href=baseportal.pl?htx=/gpark/gp/gpkateg2&gphkat~=".convert_url($_).">$_</a> ($zahl[$x] Einträge)"; 
              $x++; 
              }
 
              </perl>