可以试一下这几种方式，每种方式各有优劣：

#!/bin/perl -w
use strict;
my @arr = ( "aaa","bbb","ccc","ddd","eee","fff");    # 这个是数组
my $vv = "ddd";                                                           # 这个是要查找的变量

# 方法1,：使用类似c语言的风格，遍历这个数组，查找变量是否匹配。
foreach ( @arr)
{
 if( $vv eq $_ )
 {
  print "$vv\n"
 }
}

#方法2：使用map，查找数组中是否含有该变量
map { if($vv eq $_) { print "$vv\n"} } @arr;

#方法3：使用grep，查找数组中是否含有该变量
print( grep /^$vv$/,@arr  );

以上3中方式的编码均已经测试过了，能够得到正确答案。如果LZ初学，可以使用方法1中的类似C语言的循环风格 ……