my $sql = 'SELECT id,name FROM users WHERE has_pet = ?';
my $sth_sel = $dbh->prepare($sql);
foreach my $pet (qw/ monkey bear tiger /) {
  $sth_sel->execute($pet);
}