my $query = qq{
SELECT *
FROM aqbudgets
JOIN aqbudgetperiods USING (budget_period_id)
WHERE budget_code = ?
ORDER BY budget_id DESC
ORDER BY budget_id DESC, budget_period_active DESC
LIMIT 1
};
my $sth = $dbh->prepare( $query );
-