http://www.perlmonks.org?node_id=1039992


in reply to Re^2: Apache::Registry - shared variable?
in thread Apache::Registry - shared variable?

You could try a single fetch statement 
my $list = "";
my $ar = $hStmt->fetchall_arrayref();
for (@$ar){
  $list .= (join ',',@$_).';';
}
print $list;

[download]
poj

In Section Seekers of Perl Wisdom