#!/usr/bin/env perl use strict; use warnings; my @owner_grouprights = ('11', '14'); my @matches = grep { /4|5|6|7|8|9|10|11|12/ } @owner_grouprights; if (@matches) { print "test2"; }