while (my @row = $sth->fetchrow_array) {
  my $joined = join ',', @row[0..@row-1];

 # do stuff
}
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.