if (grep($a =~ /$_/, (_12$, _11$, _10$, _08$, _07$, _04$, _00$, _94$, _91$, _90$, _87$, _67$, _24$))) { Anweisung...