Select Code to Download

my @empty = grep {
   $dbh->selectcol_arrayref("select count(*) from $_")->[0] == 0
} $dbh->tables;