sub getFromDB {
    my $dbh = shift;
    my $sth = $dbh->prepare( 
        'SELECT (...) from ... left inner join ... union ... where ... in ( select ... )' 
    )or die $dbi->errstr;
    return sth->fetchall_arrayref;
}