$dbh->select({
    fields=>'*',
    table=>'foo,bar',
    join=>'foo.id=bar.foo_id',  ## <--- HERE
    where=>{'foo.dollars',['>',30]}
    });