用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" ;