my $sql_return = $sth_tss->fetchall_arrayref;
print $CGI->p("sql_return is ", $sql_return);
foreach $row ([$sql_return]) {
   foreach $ref ([$row]) {
      foreach $field ([$ref]) {
         print $field;
      }
   }
}