#!/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" ;
#!/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" ;