Select Code to Download

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

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

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