My 2-cents worth....
Before I discovered smart matching I used to just loop the array and search for a match.
After reading these answers I thought hey maybe I could use 'join'.
In the code below I have 6 methods including smart match ~~ as proof-of-concept.
I run each of the 6 methods on 3 different match variables.
-- sorry about the golf-style code, it's just how I roll -- 


my$match,$res;
my@array=("Nice","Bad","Good","Not good enough");

foreach$match("Ba","bad","Bad"){
 
 #method submitted by edimusrex using greb with \b boundaries
 if(grep(/\b$match\b/,@array)){$res="y"}else{$res="n"}
 print"1: $match : $res\n";

 #similar as first method but using ^ start and $ finish matching
 if(grep(/^$match$/,@array)){$res="y"}else{$res="n"}
 print"2: $match : $res\n";

 #smart matching just for POC
 if($match~~@array){$res="y"}else{$res="n"}
 print"3: $match : $res\n";

 #the long method I used to use looping the array
 $res="n";
 foreach(@array){if($_ eq $match){$res="y"}}
 print"4: $match : $res\n";
 
 #joining the array and adding ~ to start and finish as boundaries
 if(("~".join("~",@array)."~")=~/~$match~/){$res="y"}else{$res="n"}
 print"5: $match : $res\n";

 #same as above but using \b boundaries instead of hard-coding ~
 if(join("~",@array)=~/\b$match\b/){$res="y"}else{$res="n"}
 print"6: $match : $res\n\n";

}

[download]

results (perl v5.24.0 on Win7) :

1: Ba : n
2: Ba : n
3: Ba : n
4: Ba : n
5: Ba : n
6: Ba : n

1: bad : n
2: bad : n
3: bad : n
4: bad : n
5: bad : n
6: bad : n

1: Bad : y
2: Bad : y
3: Bad : y
4: Bad : y
5: Bad : y
6: Bad : y

[download]

In reply to Re: Comparison between a string and an array by sir_jeff
in thread Comparison between a string and an array by Eth443

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.