For those who like bind variables:

my $placeholders = join ( ',', ('?') x @values );
my $statement = <<"EOF";
  SELECT c_email, c_first, c_last 
    FROM tblClient, tblGroup, tblRegion 
   WHERE  tblGroup.g_name = ?
     AND tblRegion.r_name IN ( $placeholders )
EOF
my $sth = $dbh->prepare($statement);
$sth->execute('motel', @values);
[download]