while (my @row = $_read_sth->fetchall_arrayref)
   {
       @ret_values = Dumper @row, @{$_read_sth->{NAME}};
        my $csv = Text::CSV_XS->new ({ binary => 1 });
        while (my $r =  $_read_sth->fetch) 
        {
            $csv->print (*STDOUT, $r);
         }
}