如何从Perl数组中选择某些元素?

I want to search for all elements in an array which have the same starting set of characters as an element in another array. To make it clear:I want to search for all elements in an array w