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);
         }
}
[download]

still the same errors. Fetch returns a scalar reference, not a list, and don't fetch within the fetch on the same handle

my $csv = Text::CSV_XS->new ({ binary => 1, eol => "\r\n" });
# First print the Header row
$csv->print (*STDOUT, $_read_sth->{NAME});
# Then show all records
#         v---!
while (my $row = $_read_sth->fetchall_arrayref) {
    $csv->print (*STDOUT, $row);
    }
[download]


Enjoy, Have FUN! H.Merijn

Thanks for you lines of code.

I have modified my lines of code as follows:



 
     my $csv = Text::CSV_XS->new ({ binary => 1, eol => "\r\n" });
  
   $csv->print (*STDOUT, $_read_sth->{NAME});


    while (my $row = $_read_sth->fetchall_arrayref)
   {
       ##Do I need the Dumper function here? as I am supposed to print
+ multiple resultsets and each has a different heading?
       
       $csv->print (*STDOUT, $row);  
}
[download]

But it is returning me the following error :



 Expected fields to be an array ref at /cluster/uapp/app/bin/mytest.pl
+ line 58.
##Line 58 is this one-->> "   $csv->print (*STDOUT, $_read_sth->{NAME}
+);
[download]