i.e.....

my $i = 0;

while (loop...)}
# assume that $dbh is ready...

my $value = $places[$i];

my $query = <<ENDSQL;
SELECT c_mail, c_first, c_last
FROM tblClient, tblGroup, tblRegion
WHERE tblGroup.g_name = 'motel'
AND tblRegion.r_name =
ENDSQL

my $sth = $dbh->prepare( $query . ' (' . join(',',map{'?'} $value) . 
+')' );

$sth->execute( $value );
$sth->finish;
$dbh->disconnect;
$i++;
}