Ich suche einen Perlcode der mir das :IN: aus Pascal ersetzt.

if (i in ('str1','str2','str3','str4')) then ...

leider gibt es IN in Perl nciht (bekam jedenfalls ne Fehlermedlung)
und einzeln mit oder abfragen ist bei ca. 20 listelementen nicht drin ( if (($i eq 'str1')||($i eq 'str2') ...){})