I went through this a while ago:

print start_table,
      Tr[
            map { 
                  td[ $_ ]
                } @values
      ],
      end_table;
[download]

will give you a 1 column table with 1 value per row.