Then you didn't run what I wrote, I suspect you've decided to do something like this?

$json->{data} = $dbh->selectall_arrayref('SELECT idnum, fname FROM dbu
+ser', {Slice => {}} );
print $json ;
[download]

outputting:

HASH(0x55e405886718)
[download]