my $sql;
{ 
  local $" = ',';  # localize $" for use in the next statement
  $sql = "select @selector from people where foo like '%bar%'"
}

my $row = $dbh->selectall_arrayref($sql) or die "SQL Error: $sql";