来自perl中String的Grep值

Question

我的数组会有这样的值：

("test","test1","test3").

现在我有一个字符串，其值为"test","test4","test3","test5"

我想从数组

中的字符串中获取匹配值

@has = grep(m/$_/i,$strin) @array_list;

我们怎么能这样做，请帮助我。