<perl>
get "Id==*","dbname";      #dbname ändern
while (get_next("dbname")) # hier auch
{   
   %{Ds.$x++}=%_loop;      #Datensätze werden kopiert
   push @Liste,$i++;       #eine Datensatznummer hinzufügen
}

{
    $Zufall=int(rand(@Liste));  # Zufällig ein Element der Dsnummernliste auswählen
    $merken=$Liste[$Zufall];    # Inhalt dieses Elementes merken
    
    foreach $var (keys %{Ds.$merken})  # Dazugehörigen Ds holen
    {
          ${$var} = ${Ds.$merken}{$var}; # Variablen benutzerfreundlich machen
    }

    out <<EOF;

    $Email, $url, $Name
    ----------<br>
EOF
#### Ausgabe ende ####
    do
    {   
        $Temp = shift(@Liste); # erstes Element der liste kopieren/löschen
        push(@Liste,$Temp) if ($Temp!=$merken); wenn es nicht der ausgegebene Ds war - hinten wieder anstellen
    }while($Temp!=$merken); 
}while (@Liste!=0);
</perl>