如何在匹配字符串中搜索Perl数组？

在Perl中通过字符串数组搜索匹配字符串是最聪明的方法是什么？

一个警告，我想搜索不区分大小写

所以“aAa”将在(“aaa”，“bbb”)

解决方法

我猜

@foo = ("aAa","bbb");
@bar = grep(/^aaa/i,@foo);
print join ",",@bar;

会做的伎俩。