Der gesuchte Code war:

if (scalar (grep {$_ eq $suchstr} ('a','b','x','t'))){
print"worx";
}else{
print"don't";
}

Danke fuers prompte Antworten.