Select Code to Download

my @tagList = ('red', 'black');
my $sql = 'SELECT table FROM tags WHERE tag IN (' .
    join (', ', map {'?'} @tagList) .
    ')';
my $ID = $dbh->selectall_arrayref ($sql, undef, @tagList);