my $rows = $sth_tss->fetchall_arrayref;
$count = 0;
print $CGI->p("rows is ", @$rows);
for my $row ( @$rows ) {
    $CGI->p("Row", ++$count);
    my @fields = @$row;
    for my $field ( $fields ) {
       print $CGI->p($field);
    }
}