my @tables = ( 
  {name=>members,cols=>[qw(members id)]},
  {name=>emails,cols=>[qw(emails member_id)]},
);
my $sql = "SELECT "
        . join(',',@{$tables[0]->{cols}})
        . " FROM "
        . $tables[0]->{name}
        ;