It is so odd that I was having difficulty with this just yesterday. I must have been missing something obvious, because this works for me:

use warnings;
use strict;

use Test::Thing;

my $Test = Test::Thing->new;

my $q = qq{
    SELECT x
    FROM y.z
    WHERE a LIKE ?
    LIMIT 1
};

my ($result) = $Test->db->dbh->selectrow_array($q, undef, "1111%");
[download]

Details masked, and normally query calls are hidden in the backend. However, that test succeeded.

I can't even imagine what I was trying yesterday to have it fail. Again, it is so very interesting that this specific issue was brought up here after 10+ years.