@array_1 = ('a', 'b', 'c'); @array_2 = ('c', 'd', 'e'); $list_1 = join '|', @array_1; @array_3 = grep { $_ =~ $list_1 } @array_2;