perl 判断数组里面是否含有某个元素

用grep

例如：

#!/usr/bin/perl

@array = ("str1", "str2" ) ;

$item = "str3";

if ( grep { $_ eq $item } @array) {

    print "Have \n" ;

} else {

    push @array , $item ;

    print "Not have \n" ;

}

print "@array"."\n" ;