my @result = $dbh->fetchall_array();
print Dumper(\@result);
$VAR1 = [
  R1C1, R1C2, ..., R1Cn,
  R2C1, R2C2, ..., R2Cn,
  ...,
  RnC1, RnC2, ..., RnCn,
];