$json->{data} = $dbh->selectall_arrayref('SELECT idnum, fname FROM dbuser', {Slice => {}} );
print $json ;