my $x = 0;
      my @ar = ();
      while ( my $hr = $sth->fetchrow_hashref() ) {
          $ar[$x++] = $hr;
      }
      $s->rows = $x;     
      $s->ar   = \@ar;