print map { a({-href=>$_},$_) } @list;

##</code><code>##

print table(Tr(td[map { a({-href=>$_},$_) } @list]));

##</code><code>##

print table(Tr[map { td[a({-href=>$_},$_)] } @list]);