You could try a single fetch statement

my $list = "";
my $ar = $hStmt->fetchall_arrayref();
for (@$ar){
  $list .= (join ',',@$_).';';
}
print $list;
[download]

poj