This snippet will fail if the interpolated values themselves contain question marks - I would go for an eval-replace in the inner loop:

    for my $b(@binds) {
        $b=$sth->{Database}->quote($b) 
           unless DBI::looks_like_number($b);
    };
    $stmt =~ s/\?/shift @binds/eg;
[download]