Повторяющиеся аргументы в подготовленном операторе

рассмотрим запрос, который выглядит примерно так:

my $query=<<QUERY;

select * from foo1 where col < ?
union all
select * from foo2 where col < ?
QUERY

Предположим, что фактический запрос действительно нуждается в объединениях и не может быть эффективно решен другим способом. Переменная в предложении where всегда будет одной и той же. Есть ли способ структурировать это так, чтобы мне нужно было передать только 1 аргумент для выполнения вместо того, чтобы передавать один и тот же аргумент дважды?