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