$v=$v||0; # Startwert vorgeben, wenn $v leer ist

while(get_next("Linkliste"))
{
 
$namen{$Kategorie}.="$Name#";
$links{$Kategorie}.="$Link#";

foreach $k (sort %namen)

@namen=split /#/,$namen{$k};
@links=split /#/,$namen{$k};

  out "<p><b>Kategorie: $k</b><br>";
  foreach $n (@namen)
  {
    $l=shift @links;
    out "Name: $n - Link: $l<br>";
  }
}