Select Code to Download

 for (@info) {
  my %data;
  my $sth = $obj->DBI->Replies->sql_count;
...
  $data{count} = $r;
  push @loop_data, \%data;
  }

SELECT COUNT(*) from __TABLE__ where 
  thread_id=?

 #get the reply count...
  my $sth2 = $dbh->prepare(q{ select count(*) from dh_replies where th
+read_id=?});
...
  my $count = $sth2->fetchrow_array;
  push @$rows_data, { count => $count };
  }

### get replies
    ### use each $row's id as the argument passed to execute and retri
+eve
...
    $data{'count'}   = $count;
    push @rows_data, \%data;
  }