<perl>
my @Daten;

{
out "Suchbegriff =<b>[$Such]</b><br>";
my $i=0;

while(get_next)

{$i++;
$Daten[$i]="$i.<a href='http://baseportal.de/cgi-bin/baseportal.pl?
htx=$htx&Id==$_id'>$Stichworte</a><br>"; 
}
}
out "Treffer: $i<br>";

while ($y < $i+1){out $Daten[$y]; 
$y++ ;}
}