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

 # do stuff
}
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.