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