my $rl = $dbh->selectall_hashref( $sql );
print ref $rl, "\n";