foreach $f (@topics){
print <<html;
<a href="$f">$f</a><br>
html
}