use List::Util;

my @list = qw/ this that other /;
my $find = "that";

if( first { $_ eq $find } @list ) {
    print "I found it!\n";
}