use strict;
use warnings;
use feature 'say';
use SQL::Abstract::More;

my @tagList = ('red', 'black');
my $SQLA    = SQL::Abstract::More->new;

my ($stmt, @bind) = $SQLA->select('tags', ['table'], {tag => {-in => \@tagList}});

say $stmt;
say "@bind";

# $dbh->selectall_arrayref($stmt, undef, @bind);
# ... etc.
__END__