You might try something using grep such as:

@array_1 = ('a', 'b', 'c');
@array_2 = ('c', 'd', 'e');

$list_1 = join '|', @array_1;
@array_3 = grep { $_ =~ $list_1 } @array_2;
[download]