##### Ermitteln der Liste in der nur jedes Element 1x vorkommt
    @liste;
    $"=' ';
    get "Id==* sort=st_referrer", "$gv_mainfile";

    while (get_next ("$gv_mainfile"))
       {
        $st_referrer = "!" if (!$st_referrer);
        $i2++;
        if (index(" @liste "," $st_referrer")<0)
           {
            $work = sprintf('%.8d', $i) . "|$#liste";
            push (@zahl, $work) if $_loop != 0;
            $i=0;
            push (@liste, $st_referrer);
            $i++;
           }
        else
           {
            $i++;
           }
       }
    $work = sprintf('%.8d', $i) . "|$#liste";
    push (@zahl, $work);

    @zahl = sort(@zahl);